module RPGEngine.Input.LvlSelect ( getLvlList ) where import GHC.IO (unsafePerformIO) import System.Directory (getDirectoryContents) lvlFolder :: FilePath lvlFolder = "levels" getLvlList :: [FilePath] getLvlList = unsafePerformIO $ getDirectoryContents lvlFolder