aseFiles,modFiles) ← getFiles base mod "decisions"
  trace ("Found " <> show (length baseFiles + length modFiles) <> " decision files") $ return ()
  (,) <$> readFiles readDecisionFile baseFiles <*> readFiles readDecisionFile modFiles


data Action = Localisations | Strings | Traits deriving (Eq,Show)

data Resources = Resources {
  baseEvent
readDecisions :: FilePath → Maybe FilePath → IO ([Decision],[Decision])
readDecisions base mod = do
  (baseFiles,modFiles) ← getFiles base mod "decisions"
  trace ("Found " <> show (length baseFiles + length modFiles) <> " decision files") $ return ()
  (,) <$> readFiles readDecisionFile baseFiles <*> readFiles readDecisionFile modFiles
readDecisions base mod = do
  (baseFiles,modFiles) ← getFiles base mod "decisions"
  trace ("Found " <> show (length baseFiles + length modFiles) <> " decision files") $ return ()
  (,) <$> readFiles readDecisionFile baseFiles <*> readFiles readDecisionFile modFiles