{-# LANGUAGE DataKinds       #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeOperators   #-}
module Lib
    ( startApp
    , app
    ) where

import Data.Bytestring
import Data.Maybe
import Network.Wai
import Network.Wai.Handler.Warp
import Servant

import Routes

startApp :: IO ()
startApp = do
  dbURL <- getEnv "DATABASE_URL"
  let ci = fromJust $ parseDatabaseURL dbURL
  let cs = postgreSQLConnectionString ci
  let dbConnectionString = unpack cs
  pool <- createPostgresqlPool dbConnectionString 5

  runDbConn $ do
    runMigration defaultMigrationLogger $ do
      migrate (undefined :: Models.App)
      migrate (undefined :: Models.Endpoint)
      migrate (undefined :: Models.Event)

  run 8080 $ app pool

app :: Pool Postgresql -> Application
app pool = serve api $ server pool