summaryrefslogtreecommitdiff
path: root/lib/GSL
diff options
context:
space:
mode:
Diffstat (limited to 'lib/GSL')
-rw-r--r--lib/GSL/Compat.hs4
-rw-r--r--lib/GSL/gsl-aux.c8
2 files changed, 6 insertions, 6 deletions
diff --git a/lib/GSL/Compat.hs b/lib/GSL/Compat.hs
index 1d6f7b9..8a59915 100644
--- a/lib/GSL/Compat.hs
+++ b/lib/GSL/Compat.hs
@@ -234,10 +234,10 @@ instance Mul (Complex Double) (Complex Double) (Complex Double) where
234--------------------------------- matrix matrix 234--------------------------------- matrix matrix
235 235
236instance Mul (Matrix Double) (Matrix Double) (Matrix Double) where 236instance Mul (Matrix Double) (Matrix Double) (Matrix Double) where
237 (<>) = mXm 237 (<>) = multiply
238 238
239instance Mul (Matrix (Complex Double)) (Matrix (Complex Double)) (Matrix (Complex Double)) where 239instance Mul (Matrix (Complex Double)) (Matrix (Complex Double)) (Matrix (Complex Double)) where
240 (<>) = mXm 240 (<>) = multiply
241 241
242instance Mul (Matrix (Complex Double)) (Matrix Double) (Matrix (Complex Double)) where 242instance Mul (Matrix (Complex Double)) (Matrix Double) (Matrix (Complex Double)) where
243 c <> r = c <> liftMatrix comp r 243 c <> r = c <> liftMatrix comp r
diff --git a/lib/GSL/gsl-aux.c b/lib/GSL/gsl-aux.c
index eec3e5f..c2839a8 100644
--- a/lib/GSL/gsl-aux.c
+++ b/lib/GSL/gsl-aux.c
@@ -58,10 +58,10 @@
58#define GCVEC(A) int A##n, gsl_complex*A##p 58#define GCVEC(A) int A##n, gsl_complex*A##p
59#define KGCVEC(A) int A##n, const gsl_complex*A##p 59#define KGCVEC(A) int A##n, const gsl_complex*A##p
60 60
61#define BAD_SIZE 1000 61#define BAD_SIZE 2000
62#define BAD_CODE 1001 62#define BAD_CODE 2001
63#define MEM 1002 63#define MEM 2002
64#define BAD_FILE 1003 64#define BAD_FILE 2003
65 65
66 66
67void no_abort_on_error() { 67void no_abort_on_error() {