diff options
| -rw-r--r-- | src/Data/Array/XArray.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Data/Array/XArray.hs b/src/Data/Array/XArray.hs index c05b0d2..5b304ef 100644 --- a/src/Data/Array/XArray.hs +++ b/src/Data/Array/XArray.hs @@ -328,9 +328,9 @@ ravelOuterN k as@(a0 :| _) = runST $ do vec <- VSM.unsafeNew vecSize let f !n (ORS.A (ORG.A sht t)) = if | n >= k -> - error $ "ravelOuterN: list too long " ++ show (n, k) - -- if we do this check just once at the end, we may - -- crash instead of producing an accurate error message + error $ "ravelOuterN: list too long " ++ show (n, k) + -- if we do this check just once at the end, we may + -- crash instead of producing an accurate error message | sht == sh0 -> do let g off el = do VS.unsafeCopy (VSM.slice off (VS.length el) vec) el @@ -338,7 +338,7 @@ ravelOuterN k as@(a0 :| _) = runST $ do foldM_ g (n * len) (OI.toVectorListT sht t) return $! n + 1 | otherwise -> - error $ "ravelOuterN: unequal shapes " ++ show (sht, sh0) + error $ "ravelOuterN: unequal shapes " ++ show (sht, sh0) nFinal <- foldM f 0 as if nFinal == k then S.fromVector (k : sh0) <$> VS.unsafeFreeze vec |