Refactor, try to limit dependencies

src/Dodge/Creature/Inanimate.hs

@@ -2,34 +2,39 @@
 {-
 Inanimate objects such as lamps, barrels, etc
 -}
-module Dodge.Creature.Inanimate
-    ( barrel
-    , explosiveBarrel
-    , module Dodge.Creature.Lamp
-    ) where
-import Dodge.Data
+module Dodge.Creature.Inanimate (
+    barrel,
+    explosiveBarrel,
+    module Dodge.Creature.Lamp,
+) where
+
 import Dodge.Creature.Lamp
+import Dodge.Data.Creature
 import Dodge.Default
 import qualified IntMapHelp as IM
 import LensHelp
 
 barrel :: Creature
-barrel = defaultInanimate
-    { _crHP = 500
-    , _crType = Barreloid PlainBarrel
-    , _crState = defaultState 
-        {_csSpState = Barrel []
+barrel =
+    defaultInanimate
+        { _crHP = 500
+        , _crType = Barreloid PlainBarrel
+        , _crState =
+            defaultState
+                { _csSpState = Barrel []
+                }
+        , _crInv = IM.empty -- IM.fromList [(0,frontArmour)]
         }
-    , _crInv = IM.empty -- IM.fromList [(0,frontArmour)]
-    }
 
 explosiveBarrel :: Creature
-explosiveBarrel = defaultInanimate
-    { _crHP = 400
-    , _crType = Barreloid ExplosiveBarrel
-    , _crState = defaultState 
-        {_csSpState = Barrel []
+explosiveBarrel =
+    defaultInanimate
+        { _crHP = 400
+        , _crType = Barreloid ExplosiveBarrel
+        , _crState =
+            defaultState
+                { _csSpState = Barrel []
+                }
+        , _crInv = IM.empty -- IM.fromList [(0,frontArmour)]
         }
-    , _crInv = IM.empty -- IM.fromList [(0,frontArmour)]
-    }
-    & crMaterial .~ Crystal
+        & crMaterial .~ Crystal