blob: db5e54a08b363bccddfde2d8abd2d92455eac541 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
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
|
