Block screen during long loading

src/Dodge/Menu/Loading.hs

@@ -0,0 +1,16 @@
+module Dodge.Menu.Loading where
+
+import Dodge.Menu.Option
+import Dodge.Data.Universe
+
+loadingScreen :: String -> ScreenLayer
+loadingScreen str = OptionScreen
+    { _scTitle = str
+    , _scOptions = []
+    , _scOffset = 0
+    , _scPositionedMenuOption = NoPositionedMenuOption
+    , _scOptionFlag = LoadingScreen
+    , _scSelectionList = SelectionList [] Nothing 0
+    , _scAvailableLines = 0
+    , _scListDisplayParams = optionListDisplayParams
+    }