Cleanup

src/Dodge/Inventory/SelectionList.hs

@@ -233,9 +233,7 @@ closeButtonToSelectionItem w i = do
 btText :: Button -> String
 btText bt = case _btEvent bt of
     ButtonPress {} -> "BUTTON"
-    ButtonSwitch {_btOn = t} -> case t of
-        True -> "SWITCH\\"
-        False -> "SWITCH/"
+    ButtonSwitch {_btOn = t} -> if t then "SWITCH\\" else "SWITCH/"
     ButtonAccessTerminal -> "TERMINAL"
 
 closeItemToTextPictures :: FloorItem -> ([String], Color)