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