app/Main & connectGargandb

app/Main.hs

 module Main where
 
-import Gargantext.Parser.Wos (parseWos)
+import Data.Gargantext.Server (startGargantext)
 
 main :: IO ()
-main = parseWos "/tmp/DeepNeuralNetworkFull.zip"
+main = startGargantext

src/Data/Gargantext/Server.hs

@@ -44,11 +44,13 @@ server conn
     where
         echo s = pure s
 
+connectGargandb :: IO Connection
+connectGargandb = connect infoGargandb
 
 startGargantext :: IO ()
 startGargantext = do
   print ("Starting server on port " ++ show port)
-  conn <- connect infoGargandb
+  conn <- connectGargandb
   run port $ app conn
     where
         port = 8008