Work on saving/loading concurrently

2022-08-18 10:05:24 +01:00
parent 26e88f059a
commit c74d3b04bf
20 changed files with 232 additions and 154 deletions
@@ -0,0 +1,13 @@
+module Dodge.Menu.Option
+    where
+import Dodge.Data.Universe
+
+slTitleOptionsEff :: String -> [MenuOption] -> (Universe -> IO (Maybe Universe)) -> ScreenLayer
+slTitleOptionsEff title ops eff =
+    OptionScreen
+        { _scTitle = const title
+        , _scOptions = ops
+        , _scDefaultEff = eff
+        , _scOptionFlag = NormalOptions
+        , _scOptionsOffset = 0
+        }