Remove shrink gun

src/Dodge/Inventory/SelectionList.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE LambdaCase #-}
 module Dodge.Inventory.SelectionList (
     invSelectionItem,
     invSelectionItem',
@@ -81,6 +82,6 @@ closeObjectToSelectionItem e =
 
 --
 closeObjectToTextPictures :: Either FloorItem Button -> ([String], Color)
-closeObjectToTextPictures e = case e of
+closeObjectToTextPictures = \case
     Left flit -> let it = _flIt flit in (basicItemDisplay it, itemInvColor . pciToCI $ basePCI it)
     Right bt -> ([_btText bt], yellow)