matebeamter/src/Main.hs
2019-09-08 02:37:50 +02:00

29 lines
477 B
Haskell

module Main where
import Servant
import Servant.Server
import Network.Wai.Handler.Warp
import Network.Wai.Logger
-- internal imports
import API
import Types
import View
main :: IO ()
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