Cleanup

2022-04-11 14:14:42 +01:00
parent 059321b33b
commit 3566cec00d
4 changed files with 15 additions and 32 deletions
@@ -22,7 +22,7 @@ saveConfig :: Configuration -> (a -> IO a) -> a -> IO a
 saveConfig cfig f x = do
    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
+        $ AEP.encodePretty' (AEP.Config (AEP.Spaces 2) compare AEP.Generic False) cfig
    f x
 {- |
 Apply the volume settings from the world configuration to the running game.