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
|
