Refactor launcherCrit ai

2021-05-13 14:23:58 +02:00
parent 9b3fbba393
commit 2402e1e868
10 changed files with 133 additions and 233 deletions
@@ -86,7 +86,7 @@ velocity to carry across frames.
 crFriction :: Creature -> Point2 -> Point2
 crFriction cr vel = (0,0)

-{- | In order to force a list, apply with seq -}
+{- | In order to force a list, apply with seq. -}
 forceSpine :: [a] -> ()
 forceSpine = foldr (const id) ()