Continue work on bullet drawing

2023-01-12 16:09:19 +00:00
parent d08b6c5727
commit 1c9923bb91
4 changed files with 38 additions and 10 deletions
@@ -126,7 +126,7 @@ drawExamineInventory cfig mtweaki w =

 closeObjectInfo :: Int -> Either FloorItem Button -> String
 closeObjectInfo n x = case x of
-    Left (FlIt {_flIt = itm}) -> itemInfo itm ++ " It is on the floor" ++ floorItemPickupInfo n itm 
+    Left FlIt{_flIt = itm} -> itemInfo itm ++ " It is on the floor" ++ floorItemPickupInfo n itm 
    Right _ -> "Some sort of switch or button."

 floorItemPickupInfo :: Int -> Item -> String