turn (map (getFile base) baseFiles,[])


-- Get the base game events and any mod events
getEvents :: FilePath → Maybe FilePath → IO ([Event],[Event])
getEvents base mod = do
  (baseFile
getFiles base Nothing subPath = do
  baseFiles ← getDirectoryFiles base ("/"<>subPath<>"/")
  return (map (getFile base) baseFiles,[])


-- Get the base game events and any mod events
getFiles base Nothing subPath = do
  baseFiles ← getDirectoryFiles base ("/"<>subPath<>"/")
  return (map (getFile base) baseFiles,[])


-- Get the base game events and any mod events