Block screen during long loading

2022-12-29 00:44:51 +00:00
parent d1f80f1f7f
commit be41d51819
13 changed files with 90 additions and 54 deletions
@@ -46,6 +46,7 @@ data SideEffect
    | HardQuit

 data OptionScreenFlag = NormalOptions | GameOverOptions | SplashOptions
+    | LoadingScreen
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data PositionedMenuOption
@@ -68,7 +69,6 @@ data ScreenLayer
        { _scInput :: T.Text
        , _scFooter :: String
        }
-
 --    | WaitScreen
 --        { _scWaitMessage :: Universe -> String
 --        , _scWaitTime :: Int