Make lasGun have multiple functions when attached differently

src/Dodge/Item/Draw/SPic.hs

@@ -20,7 +20,7 @@ import Shape
 import ShapePicture
 
 itemTreeSPic :: LabelDoubleTree ItemLink ComposedItem -> SPic
-itemTreeSPic (LDT (itm, _) l r) =
+itemTreeSPic (LDT (CItem itm _) l r) =
     itemSPic itm
         <> foldMap (itemRotTreeSPic itm) (l <> r)
 
@@ -28,7 +28,7 @@ itemRotTreeSPic :: Item -> (ItemLink, LabelDoubleTree ItemLink ComposedItem) ->
 itemRotTreeSPic par (il, t) = translateSP p . overPosSP (Q.rotate q) $ itemTreeSPic t
   where
     (p, q) = _iatOrient il par (_iatType il) itm
-    itm = t ^. ldtValue . _1
+    itm = t ^. ldtValue . cItem
 
 itemSPic :: Item -> SPic
 itemSPic it = case it ^. itType of