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 |