Refactor, try to limit dependencies

2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
@@ -1,19 +1,23 @@
-module Dodge.Creature.Lamp 
-    ( lamp
-    , colorLamp
-    ) where
-import Dodge.Data
+module Dodge.Creature.Lamp (
+    lamp,
+    colorLamp,
+) where
+
+import Dodge.Data.Creature
 import Dodge.Default
 import Geometry.Data
-colorLamp 
-    :: Point3   -- color of lamp
-    -> Float    -- height of lamp
-    -> Creature
-colorLamp col h = defaultInanimate
-    { _crHP = 100
-    , _crType = Lampoid h col Nothing
-    , _crRad = 3
-    , _crMass = 3
-    }
+
+colorLamp ::
+    Point3 -> -- color of lamp
+    Float -> -- height of lamp
+    Creature
+colorLamp col h =
+    defaultInanimate
+        { _crHP = 100
+        , _crType = Lampoid h col Nothing
+        , _crRad = 3
+        , _crMass = 3
+        }
+
 lamp :: Float -> Creature
 lamp = colorLamp 0.75