Work on windows

2025-11-23 19:08:22 +00:00
parent 581d832569
commit 92e4552f66
14 changed files with 69 additions and 24 deletions
@@ -7,10 +7,7 @@ import Dodge.Data.Creature
 import Dodge.Default
 import Geometry.Data

-colorLamp ::
-    Point3 -> -- color of lamp
-    Float -> -- height of lamp
-    Creature
+colorLamp :: Point3 -> Float -> Creature
 colorLamp col h =
    defaultInanimate
        { _crHP = HP 100