Cleanup terminal display

2022-06-03 09:20:03 +01:00
parent 28a002eb08
commit 5ff2fb4910
24 changed files with 198 additions and 180 deletions
@@ -57,6 +57,6 @@ moveTeslaArc thearc w pt
        ArcStep lp' ld' (Just (Right _)) -> (lp' -.- 2 *.* unitVectorAtAngle ld',ld'+pi)
    damthings (ArcStep _ _ Nothing) = id
    damthings (ArcStep p dir (Just crwl)) = damageCrWall (thedamage p dir) crwl
-    thedamage p dir = Damage Electrical 50 (p -.- q) p (p +.+ q) NoDamageEffect
+    thedamage p dir = Damage ELECTRICAL 50 (p -.- q) p (p +.+ q) NoDamageEffect
      where
        q = 5 *.* unitVectorAtAngle dir