Remove force fields, cleanup

2021-10-31 16:27:41 +00:00
parent 74a4267393
commit e3a8417f07
11 changed files with 46 additions and 105 deletions
@@ -27,15 +27,13 @@ hudDrawings w = pictures
    , selectionText
    ]
  where
-    selectionText = 
-        if _carteDisplay w
+    selectionText = if _carteDisplay w
        then drawLocations w
        else drawInventory w


 drawInventory :: World -> Picture
-drawInventory w = subInventoryDisplay w 
-    `appendPic` displayInv 0 w
+drawInventory w = subInventoryDisplay w `appendPic` displayInv 0 w

 subInventoryDisplay :: World -> Picture
 subInventoryDisplay w = case _inventoryMode w of