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