Cleanup terminal display

src/Dodge/WorldEvent/SpawnParticle.hs

@@ -42,7 +42,7 @@ aFlameParticle t pos vel maycid = PtZ
     , _ptCrIgnore   = maycid
     , _ptWidth      = 4
     , _ptTimer      = t
-    , _ptHitEff     = expireAndDamage $ simpleDam Flaming 20
+    , _ptHitEff     = expireAndDamage $ simpleDam FLAMING 20
     , _ptZ           = 20
     }
 drawFlame
@@ -126,7 +126,7 @@ incBall p = do
         , _ptCrIgnore   = Nothing
         , _ptWidth      = 3
         , _ptTimer      = 20
-        , _ptHitEff     = expireAndDamage $ simpleDam Flaming 20
+        , _ptHitEff     = expireAndDamage $ simpleDam FLAMING 20
         , _ptZ          = 20
         }
 
@@ -154,7 +154,7 @@ aStaticBall p = return PtZ
     , _ptCrIgnore   = Nothing
     , _ptWidth      = 3
     , _ptTimer      = 20
-    , _ptHitEff     = expireAndDamage $ simpleDam Electrical 20
+    , _ptHitEff     = expireAndDamage $ simpleDam ELECTRICAL 20
     , _ptZ = 20
     }
 
@@ -178,7 +178,7 @@ makeFlamelet (V2 x y) z vel maycid size time w = w
         , _ptCrIgnore   = maycid
         , _ptWidth      = size
         , _ptTimer      = time
-        , _ptHitEff     = expireAndDamage $ simpleDam Flaming 20
+        , _ptHitEff     = expireAndDamage $ simpleDam FLAMING 20
         , _ptZ = z
         }
   where
@@ -307,5 +307,5 @@ cloudPoisonDamage c w = w & creatures %~ flip (foldr (IM.adjust doDam)) damagedC
   where 
     damagedCrs = IM.keys $ IM.filter f $ creaturesNearPoint clpos w
     f cr = dist3 (addZ 20 $ _crPos cr) (_clPos c) < _crRad cr + _clRad c + 10
-    doDam cr = cr & crState . crDamage .:~ Damage PoisonDam 1 clpos clpos clpos NoDamageEffect
+    doDam cr = cr & crState . crDamage .:~ Damage POISONDAM 1 clpos clpos clpos NoDamageEffect
     clpos = stripZ $ _clPos c