Refactor window size, update selection cursor on new screen

2023-03-25 09:27:27 +00:00
parent 20c05be23f
commit ea0c942887
57 changed files with 346 additions and 310 deletions
@@ -19,7 +19,7 @@ Write the current world configuration to disk as a json file.
 -}
 saveConfig :: Configuration -> (a -> IO a) -> a -> IO a
 saveConfig cfig f x = do
-    putStrLn "Saving config to data/dodge.config.json"
+--    putStrLn "Saving config to data/dodge.config.json"
    BS.writeFile "data/dodge.config.json" $
        AEP.encodePretty' (AEP.Config (AEP.Spaces 2) compare AEP.Generic False) cfig
    f x