Refactor, try to limit dependencies

src/Dodge/Default/Door.hs

@@ -1,42 +1,46 @@
-module Dodge.Default.Door 
-    ( module Dodge.Default.Door
-    , module Dodge.Default.Wall
-    ) where
-import Dodge.Data
-import Dodge.Default.Wall
-import Color
+module Dodge.Default.Door (
+    module Dodge.Default.Door,
+    module Dodge.Default.Wall,
+) where
 
+import Color
 import Control.Lens
+import Dodge.Data.Door
+import Dodge.Data.Wall
+import Dodge.Default.Wall
 
 switchWallCol :: Color -> Wall
 switchWallCol col = defaultSwitchWall & wlColor .~ col
 
 defaultAutoWall :: Wall
-defaultAutoWall = defaultDoorWall'
-    & wlColor .~ dim yellow
-    & wlPathable .~ True
+defaultAutoWall =
+    defaultDoorWall'
+        & wlColor .~ dim yellow
+        & wlPathable .~ True
+
 defaultSwitchWall :: Wall
-defaultSwitchWall = defaultDoorWall'
-    & wlColor .~ red
-    & wlPathable .~ False
+defaultSwitchWall =
+    defaultDoorWall'
+        & wlColor .~ red
+        & wlPathable .~ False
 
 defaultDoor :: Door
-defaultDoor = Door
-    { _drID = 0
-    , _drWallIDs = mempty
-    , _drStatus = DoorClosed
-    , _drTrigger = WdBlConst False
-    , _drMech   = DrWdId
-    , _drPos = (0,0)
-    , _drOpenPos = (0,0)
-    , _drClosePos = (0,0)
-    , _drHP     = 10000
-    , _drDeath  = DrWdMakeDoorDebris
-    , _drSpeed  = 1
-    , _drPushedBy = PushesItself
-    , _drPushes  = Nothing
-    , _drMounts = mempty
-    , _drObstructs = mempty
-    , _drObstacleType = DoorObstacle
-    }
-
+defaultDoor =
+    Door
+        { _drID = 0
+        , _drWallIDs = mempty
+        , _drStatus = DoorClosed
+        , _drTrigger = WdBlConst False
+        , _drMech = DrWdId
+        , _drPos = (0, 0)
+        , _drOpenPos = (0, 0)
+        , _drClosePos = (0, 0)
+        , _drHP = 10000
+        , _drDeath = DrWdMakeDoorDebris
+        , _drSpeed = 1
+        , _drPushedBy = PushesItself
+        , _drPushes = Nothing
+        , _drMounts = mempty
+        , _drObstructs = mempty
+        , _drObstacleType = DoorObstacle
+        }