Cleanup

src/Dodge/Inventory/SelectionList.hs

@@ -238,7 +238,7 @@ btText :: Button -> String
 btText bt = case _btEvent bt of
     ButtonPress {} -> "BUTTON"
     ButtonSwitch {_btOn = t} -> if t then "SWITCH\\" else "SWITCH/"
-    ButtonAccessTerminal {} -> "TERMINAL"
+    ButtonAccessTerminal i -> "TERMINAL " ++ show i
 
 closeItemToTextPictures :: Item -> ([String], Color)
 closeItemToTextPictures it = (basicItemDisplay it, itemInvColor $ baseCI it)