Simplify menu screens (no choice of display parameters)

2025-01-07 01:03:12 +00:00
parent fe3e0b1373
commit 4a9c1cd6b3
4 changed files with 15 additions and 28 deletions
@@ -1,20 +0,0 @@
-module Dodge.Menu.Loading (
-    loadingScreen,
-) where
-
-import Dodge.Data.Universe
-import Dodge.ListDisplayParams
-
-loadingScreen :: String -> ScreenLayer
-loadingScreen str =
-    OptionScreen
-        { _scTitle = str
-        , _scOptions = []
-        , _scOffset = 0
-        , _scPositionedMenuOption = NoEscapeMenuOption
-        , _scOptionFlag = LoadingScreen
-        , _scSelectionList = []
-        , _scAvailableLines = 0
--        , _scListDisplayParams = optionListDisplayParams
-        , _scDisplayTime = 0
-        }