Commit on return after gap

src/Dodge/Inventory/Path.hs

@@ -11,7 +11,7 @@ getInventoryPath x ip itid cr = case ip of
     RELCURS -> do
         selid <- cr ^? crManipulation . manObject . imSelectedItem
         guard $ (x + selid) `IM.member` (cr ^. crInv)
-        return $ (x + selid)
+        return (x + selid)
     RELITEM
         | (itid + x) `IM.member` (cr ^. crInv) ->
             return $ itid + x

src/Dodge/Inventory/SelectionList.hs

@@ -46,7 +46,7 @@ invSelectionItem w indent loc =
 -- space leak
 itemDisplay :: World -> Creature -> ComposedItem -> [String]
 itemDisplay w cr ci = -- f
-        (basicItemDisplay itm)
+        basicItemDisplay itm
 --        (itemNumberDisplay w cr ci)
         `g` anyextra
   where
@@ -104,7 +104,7 @@ itemExternalValue itm w cr
     | otherwise = mempty
 
 ugateCalc :: Int -> Int -> Int
-ugateCalc x y = (x `div` ((2::Int) ^ ((f y) ::Int))::Int) `mod` 2
+ugateCalc x y = (x `div` ((2::Int) ^ (f y ::Int))::Int) `mod` 2
   where
     f i | i > 0 = 1
         | otherwise = 0