Refactor creature ai

src/Geometry.hs

@@ -194,7 +194,7 @@ difference x y
     | x > y     = x - y
     | otherwise = y - x
 -- | Given vector line direction and a vector movement,
--- reflects the movement accoring to the line.
+-- reflects the movement according to the line.
 reflectIn :: Point2 -> Point2 -> Point2
 reflectIn line vec = rotateV angle vec
   where