VEC: improve readability

2014-12-18 00:33:24 +01:00 · 2014-12-18 00:33:24 +01:00 · 2b15585b41
parent 1545861e5b
commit 2b15585b41
1 changed files with 4 additions and 4 deletions
--- a/Algebra/Vector.hs
+++ b/Algebra/Vector.hs
@ -49,10 +49,10 @@ inRange ((xmin, ymin), (xmax, ymax)) (coords -> x :& y)
 -- |Get the angle between two vectors.
 getAngle :: Vec -> Vec -> Double
 getAngle a b =
-  acos                                   .
-    flip (/) (vecLength a * vecLength b) .
-    scalarProd a                         $
-    b
+  acos
+    . flip (/) (vecLength a * vecLength b)
+    . scalarProd a
+    $ b


 -- |Get the length of a vector.