Commit before trying to deal with leak in main inventory display

src/Dodge/Item/Draw/SPic.hs

@@ -48,6 +48,9 @@ itemSPic it = case it ^. itType of
     DETECTOR dt -> noPic (colorSH (detectorColor dt) $ upperPrismPolySU 3 $ rectWH 2 2)
     DROPPER{} -> defSPic
     CLICKER{} -> defSPic
+    COPIER{} -> defSPic
+    BGATE -> defSPic
+    UGATE -> defSPic
 
 craftItemSPic :: CraftType -> Shape
 craftItemSPic = \case