#9 Added level selection render

2022-12-21 16:07:05 +01:00 · 2022-12-21 16:07:05 +01:00 · 2055ef234e
commit 2055ef234e
parent 0786a41006
17 changed files with 401 additions and 34 deletions
--- a/lib/RPGEngine/Input/LvlSelect.hs
+++ b/lib/RPGEngine/Input/LvlSelect.hs
@ -0,0 +1,12 @@
+module RPGEngine.Input.LvlSelect
+( getLvlList
+) where
+
+import GHC.IO (unsafePerformIO)
+import System.Directory (getDirectoryContents)
+
+lvlFolder :: FilePath
+lvlFolder = "levels"
+
+getLvlList :: [FilePath]
+getLvlList = unsafePerformIO $ getDirectoryContents lvlFolder