diff options
author | Alberto Ruiz <aruiz@um.es> | 2014-06-12 14:15:05 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2014-06-12 14:15:05 +0200 |
commit | 01832377377142696645a2ea800af2db3d0fac15 (patch) | |
tree | 4988111123ac1e8ad4cc377bb713f8fff6ee3274 /packages/base/src/Numeric/Vectorized.hs | |
parent | 302a220b636d510ccf654e3671e8a93391c13523 (diff) |
improved loadMatrix
Diffstat (limited to 'packages/base/src/Numeric/Vectorized.hs')
-rw-r--r-- | packages/base/src/Numeric/Vectorized.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/base/src/Numeric/Vectorized.hs b/packages/base/src/Numeric/Vectorized.hs index 936daba..6f0d240 100644 --- a/packages/base/src/Numeric/Vectorized.hs +++ b/packages/base/src/Numeric/Vectorized.hs | |||
@@ -294,7 +294,7 @@ vectorScan s = do | |||
294 | cs <- newCString s | 294 | cs <- newCString s |
295 | ok <- c_vectorScan cs pn pp | 295 | ok <- c_vectorScan cs pn pp |
296 | when (not (ok == 0)) $ | 296 | when (not (ok == 0)) $ |
297 | error ("vectorScan \"" ++ s ++"\"") | 297 | error ("vectorScan: file \"" ++ s ++"\" not found") |
298 | n <- fromIntegral <$> peek pn | 298 | n <- fromIntegral <$> peek pn |
299 | p <- peek pp | 299 | p <- peek pp |
300 | v <- createVector n | 300 | v <- createVector n |