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

Fixes the module names

Browse Source
This commit is contained in:
Abhinav Sarkar 2017-09-30 14:03:12 +05:30
parent 4e3ba59b9e
commit 1929eeee6b
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/SimpleService/Handler.purs
View File

@ -14,8 +14,8 @@ import Database.PostgreSQL as PG
import Node.Express.Handler (Handler) import Node.Express.Handler (Handler)
import Node.Express.Request (getBody, getRouteParam) import Node.Express.Request (getBody, getRouteParam)
import Node.Express.Response (end, sendJson, setStatus) import Node.Express.Response (end, sendJson, setStatus)
import SimpleServer.Persistence as P import SimpleService.Persistence as P
import SimpleServer.Types import SimpleService.Types
getUser :: forall eff. PG.Pool -> Handler (postgreSQL :: PG.POSTGRESQL | eff) getUser :: forall eff. PG.Pool -> Handler (postgreSQL :: PG.POSTGRESQL | eff)
getUser pool = getRouteParam "id" >>= case _ of getUser pool = getRouteParam "id" >>= case _ of

4
src/SimpleService/Persistence.purs
View File

@ -1,4 +1,4 @@
module SimpleServer.Persistence module SimpleService.Persistence
( insertUser ( insertUser
, findUser , findUser
, updateUser , updateUser
@ -12,7 +12,7 @@ import Control.Monad.Aff (Aff)
import Data.Array as Array import Data.Array as Array
import Data.Maybe (Maybe) import Data.Maybe (Maybe)
import Database.PostgreSQL as PG import Database.PostgreSQL as PG
import SimpleServer.Types (User(..), UserID) import SimpleService.Types (User(..), UserID)
insertUserQuery :: String insertUserQuery :: String
insertUserQuery = "insert into users (id, name) values ($1, $2)" insertUserQuery = "insert into users (id, name) values ($1, $2)"

2
src/SimpleService/Types.purs
View File

@ -1,4 +1,4 @@
module SimpleServer.Types where module SimpleService.Types where
import Prelude import Prelude