diff options
author | tv <tv@krebsco.de> | 2019-01-13 23:52:05 +0100 |
---|---|---|
committer | tv <tv@krebsco.de> | 2019-01-21 02:12:00 +0100 |
commit | ce276eee82ec0b8c4106beb4c51d6f9eb77335c4 (patch) | |
tree | e41019c40471a45659fefba1671fa68395f062d6 /src/main.hs | |
parent | dffc580ca255cd118a0dfcdae7a5bb67f4824dcc (diff) |
src: initv0.0.0
Diffstat (limited to 'src/main.hs')
-rw-r--r-- | src/main.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/main.hs b/src/main.hs new file mode 100644 index 0000000..db5e54a --- /dev/null +++ b/src/main.hs @@ -0,0 +1,14 @@ +{-# LANGUAGE LambdaCase #-} +module Main (main) where + +import Data.Aeson (eitherDecodeFileStrict) +import qualified Reaktor +import qualified System.Environment + + +main :: IO () +main = do + [configPath] <- System.Environment.getArgs + eitherDecodeFileStrict configPath >>= \case + Right cfg -> Reaktor.run cfg + Left err -> error err |