From b68dd0d8445f4a5619de73ab88b6b06528914943 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Sat, 14 Mar 2026 11:52:33 +0100 Subject: Uniformise indentation --- src/Data/Array/XArray.hs | 8 ++++---- 1 file 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 -- cgit v1.2.3-70-g09d2