mateamt/src/Main.hs
2019-04-15 22:23:25 +02:00

48 lines
925 B
Haskell

{-# LANGUAGE OverloadedStrings #-}
module Main where
import Servant
import Data.Time.Clock
import Database.PostgreSQL.Simple
import Network.Wai.Handler.Warp
import Opaleye
import Control.Monad.IO.Class (liftIO)
import Control.Monad (void)
-- internal imports
import API
import Model as M
import Types
main :: IO ()
main = do
conn <- connectPostgreSQL
"host='localhost' port=5432 dbname='mateamt' user='mateamt' password='mateamt'"
run 3000 (app conn)
app :: Connection -> Application
app conn = serve userApi (users conn)
userApi :: Proxy UserAPI
userApi = Proxy
users :: Connection -> Server UserAPI
users conn =
userList :<|>
userNew
where
userList :: Maybe Refine -> Handler [User]
userList ref = liftIO $ userSelect conn ref
userNew :: UserSubmit -> Handler Int
userNew us = liftIO $ do
now <- getCurrentTime
head <$> runInsert_ conn (insertUser us (utctDay now))