HELPS/src/Main.hs

module Main (main) where

import Core
import Database
import Handlers

import Control.Monad.Except     (ExceptT (ExceptT))
import Data.List
import Effectful
import Effectful.Error.Static   (Error, runError, runErrorNoCallStack, throwError)
import Effectful.FileSystem
import Network.Wai.Handler.Warp (run)
import Servant hiding           ((:>), throwError)
import qualified Servant        as S

--
-- Application
--
main :: IO ()
main = run port $ serve proxy app

app :: Server AppAPI
app = α $ rootHandler
     :<|> userListHandler
     :<|> userGetHandler
     :<|> userPostHandler

α :: ServerT AppAPI AppEff -> ServerT AppAPI Handler
α = hoistServer proxy 
  $ Handler 
  . ExceptT 
  . runEff 
  . runErrorNoCallStack
  . runLoggerIO
  . runFileSystem
  . runDatabaseIO

port :: Int
port = 8080

proxy :: Proxy AppAPI
proxy = Proxy