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