Work towards making world read/showable

2022-07-22 11:16:12 +01:00
parent 6b69fc1684
commit 7fdb70dd1c
22 changed files with 223 additions and 218 deletions
@@ -48,7 +48,7 @@ optionListToEffects defaulteff sc mops u = case sc of
  where
    f x | x > length mops = 0
        | otherwise = x
-    mlines = availableMenuLines $ _config u
+    mlines = availableMenuLines $ _uvConfig u

 menuOptionToEffects :: MenuOption -> [(Scancode,Universe -> IO (Maybe Universe))]
 menuOptionToEffects Toggle          {_moKey = k, _moEff = eff} = [(k,eff)]