n (usageInfo "validator:" options) >> exitSuccess
  let (rawModPath,gamePath) = (modRootPath args,gameRootPath args)
  modPath ← sequence $ localMod <$> rawModPath
  (baseEvents,modEvents) ← getEvents gamePath modPath
  (baseDecisions,modDecisions) ← readDecisions gamePath modPath
  uncheckedLocalisations ← sequence <$> getLocalisations gamePath modPath
  let locs = case uncheckedLocalisations of
        Right l → trace "got localisations" l
        Left e → error $ "localisation error: " <> T.unpack e
  (action,result) ← startCheck Resources { baseEvents, modEvents, baseDecisions, modDecisions, localisations = concat locs }
  argDispatcher args action result
  exitSuccess

main = do
  (rawArgs,_,_) ← getOpt Permute options <$> getArgs
  let args = foldl' (flip ($)) defaultArgs rawArgs
  when (showHelp args)
    $ Prelude.putStrLn (usageInfo "validator:" options) >> exitSuccess
  let (rawModPath,gamePath) = (modRootPath args,gameRootPath args)
  modPath ← sequence $ localMod <$> rawModPath
  (baseEvents,modEvents) ← getEvents gamePath modPath
  (baseDecisions,modDecisions) ← readDecisions gamePath modPath
  uncheckedLocalisations ← sequence <$> getLocalisations gamePath modPath
  let locs = case uncheckedLocalisations of
        Right l → trace "got localisations" l
        Left e → error $ "localisation error: " <> T.unpack e
  (action,result) ← startCheck Resources { baseEvents, modEvents, baseDecisions, modDecisions, localisations = concat locs }
  argDispatcher args action result
  exitSuccess
main = do
  (rawArgs,_,_) ← getOpt Permute options <$> getArgs
  let args = foldl' (flip ($)) defaultArgs rawArgs
  when (showHelp args)
    $ Prelude.putStrLn (usageInfo "validator:" options) >> exitSuccess
  let (rawModPath,gamePath) = (modRootPath args,gameRootPath args)
  modPath ← sequence $ localMod <$> rawModPath
  (baseEvents,modEvents) ← getEvents gamePath modPath
  (baseDecisions,modDecisions) ← readDecisions gamePath modPath
  uncheckedLocalisations ← sequence <$> getLocalisations gamePath modPath
  let locs = case uncheckedLocalisations of
        Right l → trace "got localisations" l
        Left e → error $ "localisation error: " <> T.unpack e
  (action,result) ← startCheck Resources { baseEvents, modEvents, baseDecisions, modDecisions, localisations = concat locs }
  argDispatcher args action result
  exitSuccess