matebeamter/src/Main.hs

29 lines
477 B
Haskell
Raw Normal View History

2019-09-06 23:57:25 +00:00
module Main where
2019-09-08 00:37:50 +00:00
import Servant
import Servant.Server
import Network.Wai.Handler.Warp
import Network.Wai.Logger
-- internal imports
import API
import Types
import View
2019-09-06 23:57:25 +00:00
main :: IO ()
2019-09-08 00:37:50 +00:00
main = do
withStdoutLogger $ \ilog -> do
let settings = setPort 3000 $ setLogger ilog defaultSettings
runSettings settings app
app :: Application
app = serve userApi userServer
userApi :: Proxy UserAPI
userApi = Proxy
userServer :: Server UserAPI
userServer = return authPage