HELPS/src/Main.hs

50 lines
1.0 KiB
Haskell
Raw Normal View History

2024-09-18 13:16:36 -05:00
module Main (main) where
import Core
import Database
import Handlers
2024-10-13 13:30:39 -05:00
import Logger
import Routes
2024-09-18 13:16:36 -05:00
import Control.Monad.Except (ExceptT (ExceptT))
import Data.List
import Effectful
2024-10-13 12:31:45 -05:00
import Effectful.Error.Static (Error, runErrorNoCallStack, throwError)
import Effectful.Reader.Static
2024-09-18 13:16:36 -05:00
import Network.Wai.Handler.Warp (run)
import Servant hiding ((:>), throwError)
import qualified Servant as S
--
-- Application
--
2024-09-18 13:16:36 -05:00
main :: IO ()
main = do
pool <- createConnectionPool
let env = AppEnv { pool = pool }
run port . serve proxy $ app env
2024-09-18 13:16:36 -05:00
app :: AppEnv -> Server AppAPI
2024-10-13 12:31:45 -05:00
app env = transformEff env
$ rootHandler
2024-09-18 13:16:36 -05:00
:<|> userListHandler
:<|> userGetHandler
:<|> userPostHandler
:<|> userDeleteHandler
2024-09-18 13:16:36 -05:00
transformEff :: AppEnv -> ServerT AppAPI AppEff -> ServerT AppAPI Handler
2024-10-13 12:31:45 -05:00
transformEff env = hoistServer proxy
$ Handler
. ExceptT
. runEff
. runErrorNoCallStack
. runReader env
. runDatabaseIO
. runLoggerPSQL
2024-09-18 13:16:36 -05:00
port :: Int
port = 8080
2024-10-12 18:08:29 -05:00
proxy :: Proxy AppAPI
2024-09-18 13:16:36 -05:00
proxy = Proxy