Fix no damage to walls bug

src/Dodge/Tesla/Arc.hs

@@ -1,4 +1,7 @@
-module Dodge.Tesla.Arc where
+module Dodge.Tesla.Arc 
+    ( shootTeslaArc'
+    , moveTeslaArc
+    ) where
 
 import Dodge.Data.CrWlID
 import Dodge.Data.ArcStep
@@ -45,7 +48,6 @@ moveTeslaArc w pt
         ArcStep lp' ld' (WlID wlid) -> case w ^? cWorld . walls . ix wlid of
             Nothing -> (lp', ld')
             Just _ -> (lp' -.- 2 *.* unitVectorAtAngle ld', ld' + pi)
-    --damthings (ArcStep _ _ NothingID) = id
     damthings (ArcStep p dir crwl) = damageCrWlID (thedamage p dir) crwl
     thedamage p dir = Damage ELECTRICAL 50 (p -.- q) p (p +.+ q) NoDamageEffect
       where