2017-08-28 11:14:37 +05:30
|
|
|
module Main where
|
|
|
|
|
|
|
|
import Prelude
|
2017-09-11 00:36:51 +05:30
|
|
|
|
2017-08-28 11:14:37 +05:30
|
|
|
import Control.Monad.Eff (Eff)
|
2017-09-11 00:36:51 +05:30
|
|
|
import Control.Monad.Eff.Console (CONSOLE)
|
|
|
|
import Database.PostgreSQL as PG
|
|
|
|
import Node.Express.Types (EXPRESS)
|
|
|
|
import SimpleService.Server (runServer)
|
2017-08-28 11:14:37 +05:30
|
|
|
|
2017-09-11 00:36:51 +05:30
|
|
|
main :: forall eff. Eff ( console :: CONSOLE
|
|
|
|
, express :: EXPRESS
|
|
|
|
, postgreSQL :: PG.POSTGRESQL
|
|
|
|
| eff) Unit
|
|
|
|
main = runServer port databaseConfig
|
|
|
|
where
|
|
|
|
port = 4000
|
|
|
|
databaseConfig = { user: "abhinav"
|
|
|
|
, password: ""
|
|
|
|
, host: "localhost"
|
|
|
|
, port: 5432
|
|
|
|
, database: "simple_server"
|
|
|
|
, max: 10
|
|
|
|
, idleTimeoutMillis: 1000
|
|
|
|
}
|