diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2026-03-14 11:52:33 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2026-03-14 12:02:56 +0100 |
| commit | b68dd0d8445f4a5619de73ab88b6b06528914943 (patch) | |
| tree | c0a5f76ebf532adcd5c9cac45db8f4547da8205d | |
| parent | 878ee135fcdebc03a5f5984bd23016d69590f2bf (diff) | |
Uniformise indentation
| -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 |