Cleanup

2022-07-19 21:51:37 +01:00
parent 0edc1cfe11
commit db44d5d6ce
7 changed files with 36 additions and 36 deletions
@@ -312,7 +312,9 @@ data CreatureType
        , _skinUpper    :: Color
        , _skinLower    :: Color
        }
-    | DrawnCreature { _cdDraw :: Creature -> SPic }
+    | Barreloid
+    | Lampoid {_lampHeight :: Float}
+    | NonDrawnCreature
 data Creature = Creature
    { _crPos            :: Point2
    , _crOldPos         :: Point2