diff options
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 |