Move towards serializing saves/loads faster

2022-08-19 11:12:43 +01:00
parent c74d3b04bf
commit 9df0fa8692
38 changed files with 542 additions and 384 deletions
@@ -8,12 +8,12 @@ import Dodge.Menu.PushPop
 makeBoolOption lns t =
    Toggle
        (return . Just . (uvConfig . lns #%~ not))
-        (\u -> Right (t, show (u ^# uvConfig . lns)))
+        (\u -> MODStringOption t (show (u ^# uvConfig . lns)))

 makeEnumOption lns str sideeff =
    Toggle
        (\u -> Just <$> sideeff (u & uvConfig . lns #%~ cycleEnum))
-        (\u -> Right (str, show (u ^# uvConfig . lns)))
+        (\u -> MODStringOption str (show (u ^# uvConfig . lns)))

 makeSubmenuOption submenu t = Toggle (pushScreen submenu) (const t)