From 68c19b1e94a4aba5260455daaf76493e50b7f0b4 Mon Sep 17 00:00:00 2001
From: Reiner Pope <reiner.pope@gmail.com>
Date: Sun, 8 Jan 2012 14:33:21 +1100
Subject: Fix multiply.

---
 lib/Numeric/LinearAlgebra/LAPACK.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/Numeric/LinearAlgebra/LAPACK.hs b/lib/Numeric/LinearAlgebra/LAPACK.hs
index 349650c..7ad58e1 100644
--- a/lib/Numeric/LinearAlgebra/LAPACK.hs
+++ b/lib/Numeric/LinearAlgebra/LAPACK.hs
@@ -61,8 +61,8 @@ foreign import ccall "multiplyQ" cgemmc :: CInt -> CInt -> TQMQMQM
 isT Matrix{order = ColumnMajor} = 0
 isT Matrix{order = RowMajor} = 1
 
-tt x@Matrix{order = RowMajor} = x
-tt x@Matrix{order = ColumnMajor} = trans x
+tt x@Matrix{order = ColumnMajor} = x
+tt x@Matrix{order = RowMajor} = trans x
 
 multiplyAux f st a b = unsafePerformIO $ do
     when (cols a /= rows b) $ error $ "inconsistent dimensions in matrix product "++
-- 
cgit v1.2.3