Continue removing LDTs

src/Dodge/Euse.hs

@@ -12,7 +12,7 @@ import Dodge.Wall.Move
 import Geometry
 import LensHelp
 
-equipBackgroundEffect :: LocationLDT ItemLink OItem -> Creature -> EquipSite 
+equipBackgroundEffect :: LocationDT OItem -> Creature -> EquipSite 
     -> World -> World
 equipBackgroundEffect loc cr = case eo of
     EQUIP (MAGSHIELD mt) -> const $ useMagShield mt itm cr
@@ -20,7 +20,7 @@ equipBackgroundEffect loc cr = case eo of
     EQUIP HEADLAMP -> const $ createHeadLamp itm cr
     _ ->  const id
   where
-    itm = loc ^. locLDT . ldtValue . _1
+    itm = loc ^. locDT . dtValue . _1
     eo = itm ^. itType
 
 -- this should probably drain energy