2018-08-02 23:07:05 +03:00
|
|
|
{-# Language OverloadedStrings #-}
|
2018-08-02 21:39:08 +03:00
|
|
|
module Main where
|
|
|
|
|
2018-08-02 22:11:11 +03:00
|
|
|
import Server (server)
|
|
|
|
import Network.Wai.Handler.Warp (run)
|
2018-08-02 22:32:23 +03:00
|
|
|
import Types
|
2018-08-02 23:07:05 +03:00
|
|
|
import Configuration (Config)
|
|
|
|
import Dhall (input, auto)
|
2018-08-02 22:11:11 +03:00
|
|
|
|
2018-08-02 23:07:05 +03:00
|
|
|
defaultMain :: Config -> IO ()
|
|
|
|
defaultMain c = run 8080 (server (App c))
|
2018-08-02 21:39:08 +03:00
|
|
|
|
|
|
|
main :: IO ()
|
2018-08-02 23:07:05 +03:00
|
|
|
main = do
|
|
|
|
c <- input auto "./config/config.dhall"
|
|
|
|
defaultMain c
|