abhin4v
/
ps-simple-rest-service
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Changes launchAff to runAff

master
Abhinav Sarkar 2017-09-29 20:49:18 +05:30
parent a455268226
commit 4e3ba59b9e
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/SimpleService/Server.purs
View File

@ -2,11 +2,10 @@ module SimpleService.Server (runServer) where
import Prelude import Prelude
import Control.Monad.Aff (launchAff) import Control.Monad.Aff (runAff)
import Control.Monad.Eff (Eff) import Control.Monad.Eff (Eff)
import Control.Monad.Eff.Class (liftEff) import Control.Monad.Eff.Class (liftEff)
import Control.Monad.Eff.Console (CONSOLE, log, logShow) import Control.Monad.Eff.Console (CONSOLE, log, logShow)
import Control.Monad.Eff.Exception (catchException)
import Database.PostgreSQL as PG import Database.PostgreSQL as PG
import Node.Express.App (App, delete, get, http, listenHttp, post, useExternal) import Node.Express.App (App, delete, get, http, listenHttp, post, useExternal)
import Node.Express.Types (EXPRESS, Method(..)) import Node.Express.Types (EXPRESS, Method(..))
@ -32,8 +31,7 @@ runServer :: forall eff.
, postgreSQL :: PG.POSTGRESQL , postgreSQL :: PG.POSTGRESQL
, console :: CONSOLE , console :: CONSOLE
| eff ) Unit | eff ) Unit
runServer port databaseConfig = catchException logShow $ runServer port databaseConfig = void $ runAff logShow pure do
void $ launchAff do pool <- PG.newPool databaseConfig
pool <- PG.newPool databaseConfig let app' = app pool
let app' = app pool void $ liftEff $ listenHttp app' port \_ -> log $ "Server listening on :" <> show port
liftEff $ listenHttp app' port \_ -> log $ "Server listening on :" <> show port