16 lines
444 B
Haskell
16 lines
444 B
Haskell
|
module Main (main) where
|
||
|
|
|
||
|
|
import System.Exit (exitFailure)
|
||
|
|
import System.IO (hPutStrLn, stderr)
|
||
|
|
|
||
|
|
import Bot.Config (loadConfig, Config (..))
|
||
|
|
import Bot.Event (parseEvent)
|
||
|
|
import Bot.Review (handleEvent)
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = do
|
||
|
|
config <- loadConfig
|
||
|
|
parseEvent (cfgEventName config) (cfgEventPath config) >>= \case
|
||
|
|
Left err -> hPutStrLn stderr ("Event parse error: " <> err) >> exitFailure
|
||
|
|
Right event -> handleEvent config event
|