Cleanup

src/Dodge/Inventory/Add.hs

@@ -19,7 +19,6 @@ import Dodge.SoundLogic
 import qualified IntMapHelp as IM
 import NewInt
 
--- should check that the item is not already in your inventory
 -- this assumes that this item is currently on the floor
 tryPutItemInInv :: Int -> Int -> World -> Maybe (NewInt InvInt, World)
 tryPutItemInInv cid itid w = do
@@ -44,7 +43,7 @@ tryPutItemInInv cid itid w = do
   where
     updateselectionextra i
         | cid == 0 = (hud . diSelection . _Just . slSet %~ IS.map (f i))
-            . (hud . diSelection . _Just . slInt %~ (f i))
+            . (hud . diSelection . _Just . slInt %~ f i)
         | otherwise = id
     f j i | i >= _unNInt j = i + 1
           | otherwise = i