Replace the custom 'Vector' typeclass with 'Normed' everywhere.

[numerical-analysis.git] / src / FixedVector.hs

diff --git a/src/FixedVector.hs b/src/FixedVector.hs
index 6dabfb60ab07d4e3574deb57ab4192b388ed2a72..531c0fd7b9155a1db0987959f6544fcbf8747cfc 100644 (file)
--- a/src/FixedVector.hs
+++ b/src/FixedVector.hs
@@ -154,7 +154,7 @@ angle v1 v2 =
   acos theta
   where
     theta = (v1 `dot` v2) / norms
-    norms = (norm_p (2 :: Integer) v1) * (norm_p (2 :: Integer) v2)
+    norms = (norm v1) * (norm v2)
 
 
 -- | Convenience function for creating 2d vectors.