Remove (by commenting out) module item-type system

src/Dodge/Machine/Draw.hs

@@ -1,5 +1,9 @@
-module Dodge.Machine.Draw where
+module Dodge.Machine.Draw 
+    ( drawMachine
+    ) where
 
+import Dodge.Data.ComposedItem
+import Dodge.DoubleTree
 import Dodge.Data.Machine
 import Dodge.Item.Draw.SPic
 import Dodge.Item.HeldOffset
@@ -56,9 +60,10 @@ drawBaseMachine h mc =
         $ _mcWidth mc
 
 drawTurret :: Turret -> Machine -> SPic
-drawTurret tu mc = overPosSP (turretItemOffset it tu mc) (itemSPic it)
+drawTurret tu mc = overPosSP (turretItemOffset itm tu mc) (itemSPic ittree)
   where
-    it = _tuWeapon tu
+    itm = _tuWeapon tu
+    ittree = singleLDT (itm,UncomposableIsolateSF,LinkTest (const Nothing) (const Nothing))
 
 sensorSPic :: (PaletteColor, DecorationShape) -> Machine -> SPic
 sensorSPic (pc, ds) mc =