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 |