Commit on return after gap

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