Cleanup

2024-11-17 13:03:46 +00:00
parent 5b6c356bab
commit d5be125a3b
13 changed files with 156 additions and 169 deletions
@@ -1,18 +1,20 @@
-module Dodge.Menu.Loading where
+module Dodge.Menu.Loading (
+    loadingScreen,
+) where

-import Dodge.ListDisplayParams
-import Dodge.Default.SelectionList
 import Dodge.Data.Universe
+import Dodge.ListDisplayParams

 loadingScreen :: String -> ScreenLayer
-loadingScreen str = OptionScreen
-    { _scTitle = str
-    , _scOptions = []
-    , _scOffset = 0
-    , _scPositionedMenuOption = NoEscapeMenuOption
-    , _scOptionFlag = LoadingScreen
-    , _scSelectionList = defaultSelectionList
-    , _scAvailableLines = 0
-    , _scListDisplayParams = optionListDisplayParams
-    , _scDisplayTime = 0
-    }
+loadingScreen str =
+    OptionScreen
+        { _scTitle = str
+        , _scOptions = []
+        , _scOffset = 0
+        , _scPositionedMenuOption = NoEscapeMenuOption
+        , _scOptionFlag = LoadingScreen
+        , _scSelectionList = []
+        , _scAvailableLines = 0
+        , _scListDisplayParams = optionListDisplayParams
+        , _scDisplayTime = 0
+        }