diff options
Diffstat (limited to 'lib/Data/Packed/Internal/Matrix.hs')
-rw-r--r-- | lib/Data/Packed/Internal/Matrix.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Data/Packed/Internal/Matrix.hs b/lib/Data/Packed/Internal/Matrix.hs index b0fea51..c20726b 100644 --- a/lib/Data/Packed/Internal/Matrix.hs +++ b/lib/Data/Packed/Internal/Matrix.hs | |||
@@ -281,14 +281,14 @@ foreign import ccall unsafe "auxi.h multiplyR" | |||
281 | cmultiplyR :: Int -> Int -> Int -> Ptr Double | 281 | cmultiplyR :: Int -> Int -> Int -> Ptr Double |
282 | -> Int -> Int -> Int -> Ptr Double | 282 | -> Int -> Int -> Int -> Ptr Double |
283 | -> Int -> Int -> Ptr Double | 283 | -> Int -> Int -> Ptr Double |
284 | -> IO Int | 284 | -> IO CInt |
285 | 285 | ||
286 | multiplyC = multiplyAux cmultiplyC | 286 | multiplyC = multiplyAux cmultiplyC |
287 | foreign import ccall unsafe "auxi.h multiplyC" | 287 | foreign import ccall unsafe "auxi.h multiplyC" |
288 | cmultiplyC :: Int -> Int -> Int -> Ptr (Complex Double) | 288 | cmultiplyC :: Int -> Int -> Int -> Ptr (Complex Double) |
289 | -> Int -> Int -> Int -> Ptr (Complex Double) | 289 | -> Int -> Int -> Int -> Ptr (Complex Double) |
290 | -> Int -> Int -> Ptr (Complex Double) | 290 | -> Int -> Int -> Ptr (Complex Double) |
291 | -> IO Int | 291 | -> IO CInt |
292 | 292 | ||
293 | -- | matrix product | 293 | -- | matrix product |
294 | multiply :: (Element a) => Matrix a -> Matrix a -> Matrix a | 294 | multiply :: (Element a) => Matrix a -> Matrix a -> Matrix a |