about summary refs log tree commit diff
path: root/assessments/tt/src/Main.hs
blob: 9df4232066bb24dc3ccb8472d2accc292c4e92ad (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
--------------------------------------------------------------------------------
module Main where
--------------------------------------------------------------------------------
import qualified App
import qualified System.Envy as Envy
--------------------------------------------------------------------------------

main :: IO ()
main = do
  mEnv <- Envy.decodeEnv
  case mEnv of
    Left err -> putStrLn err
    Right env -> App.run env