29 lines
477 B
Haskell
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
|