diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index de40b3225e4a..9df4232066bb 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -1,7 +1,13 @@ +-------------------------------------------------------------------------------- module Main where -------------------------------------------------------------------------------- import qualified App +import qualified System.Envy as Envy -------------------------------------------------------------------------------- main :: IO () -main = App.run "../db.sqlite3" +main = do + mEnv <- Envy.decodeEnv + case mEnv of + Left err -> putStrLn err + Right env -> App.run env |