aboutsummaryrefslogtreecommitdiffstats
path: root/src/main.hs
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