Cleanup, prepare ground to allow for drawing attached items

src/Dodge/Render/HUD.hs

@@ -1,4 +1,3 @@
---{-# LANGUAGE TupleSections #-}
 module Dodge.Render.HUD (
     drawHUD,
 ) where

src/Dodge/Render/ShapePicture.hs

@@ -164,7 +164,7 @@ floorItemSPic :: FloorItem -> SPic
 floorItemSPic flit =
     uncurryV translateSPxy (_flItPos flit) $
         rotateSP (_flItRot flit) 
-            (itemSPic $ singleLDT ((_flIt flit),UncomposableIsolateSF,LinkTest (const Nothing) (const Nothing)))
+            (itemSPic $ singleLDT ((_flIt flit),UncomposableIsolateSF,LTest (const Nothing) (const Nothing)))
 
 btSPic :: Button -> SPic
 btSPic bt =