summaryrefslogtreecommitdiff
path: root/lib/Numeric/LinearAlgebra/Tests.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Tests.hs')
-rw-r--r--lib/Numeric/LinearAlgebra/Tests.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Numeric/LinearAlgebra/Tests.hs b/lib/Numeric/LinearAlgebra/Tests.hs
index 2b5869d..5036e3f 100644
--- a/lib/Numeric/LinearAlgebra/Tests.hs
+++ b/lib/Numeric/LinearAlgebra/Tests.hs
@@ -213,7 +213,7 @@ rot a = (3><3) [ c,0,s
213 where c = cos a 213 where c = cos a
214 s = sin a 214 s = sin a
215 215
216rotTest = fun (10^5) :~12~: rot 5E4 216rotTest = fun (10^5) :~11~: rot 5E4
217 where fun n = foldl1' (<>) (map rot angles) 217 where fun n = foldl1' (<>) (map rot angles)
218 where angles = toList $ linspace n (0,1) 218 where angles = toList $ linspace n (0,1)
219 219