Check whether tests compile in ghcid

2026-03-29 15:50:58 +01:00
parent 7b9635fe53
commit d278083947
11 changed files with 95 additions and 84 deletions
@@ -59,9 +59,11 @@ angleVV :: Point2 -> Point2 -> Float
 {-# INLINE angleVV #-}
 angleVV a b
    | a == b = 0
+    | norm a == 0 = 0
+    | norm b == 0 = 0
    | otherwise =
-        let ma = magV a
-            mb = magV b
+        let ma = norm a
+            mb = norm b
            d = a `dotV` b
         in acos $ d / (ma * mb)