[FIX] adding port number as parameter when starting the server.

README.md

@@ -11,6 +11,7 @@ sudo apt-get install libbz2-dev lipq-dev
 # Starting
 
 stack ghci
-startGargantext "gargantext.ini"
+
+startGargantext 8008 "gargantext.ini"
 
 

app/Main.hs

@@ -4,10 +4,10 @@ module Main where
 
 import Gargantext.Prelude
 import Gargantext.Server (startGargantext)
-
+import Text.Read (read)
 import System.Environment (getArgs)
 
 main :: IO ()
 main = do 
-  (iniFile:_) <- getArgs
-  startGargantext iniFile
+  (port:iniFile:_) <- getArgs
+  startGargantext (read port :: Int) iniFile

src/Gargantext/Server.hs

@@ -60,16 +60,14 @@ server conn
     where
         echo s = pure s
 
-startGargantext :: FilePath -> IO ()
-startGargantext file = do
+startGargantext :: Int -> FilePath -> IO ()
+startGargantext port file = do
   
   print ("Starting server on port " <> show port)
   param <- databaseParameters file
   conn  <- connect param
   
   run port $ app conn
-    where
-        port = 8008
 
 -- | TODO App type, the main monad in which the bot code is written with.
 -- Provide config, state, logs and IO