Refactor doors

src/Dodge/Default/Door.hs

@@ -4,7 +4,6 @@ module Dodge.Default.Door
     ) where
 import Dodge.Data
 import Dodge.Default.Wall
-import Dodge.Block.Debris
 import Color
 
 import Control.Lens
@@ -26,13 +25,13 @@ defaultDoor = Door
     { _drID = 0
     , _drWallIDs = mempty
     , _drStatus = DoorClosed
-    , _drTrigger = const False
-    , _drMech   = const id
+    , _drTrigger = WdBlConst False
+    , _drMech   = DrWdId
     , _drPos = (0,0)
     , _drOpenPos = (0,0)
     , _drClosePos = (0,0)
     , _drHP     = 10000
-    , _drDeath  = makeDoorDebris
+    , _drDeath  = DrWdMakeDoorDebris
     , _drSpeed  = 1
     , _drPushedBy = PushesItself
     , _drPushes  = Nothing