From dbc4266f1868f57da9c7ef79972538cc9d21b7cc Mon Sep 17 00:00:00 2001 From: Lennart Spitzner Date: Mon, 28 Aug 2023 17:15:53 +0200 Subject: [PATCH] Fix import sorting --- .../Language/Haskell/Brittany/Internal/SplitExactModule.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/source/library/Language/Haskell/Brittany/Internal/SplitExactModule.hs b/source/library/Language/Haskell/Brittany/Internal/SplitExactModule.hs index c2cdccf..9f1e64b 100644 --- a/source/library/Language/Haskell/Brittany/Internal/SplitExactModule.hs +++ b/source/library/Language/Haskell/Brittany/Internal/SplitExactModule.hs @@ -352,7 +352,8 @@ groupifyImportLines ls = finalToList_ $ go (PartialCommsOnly []) ls finalYield $ NewlineComment comm PartialImport partialRecord -> finalYield $ ImportStatement $ unpartial partialRecord - go acc (line1 : lineR) = do + go acc (EmptyLines 0 : lineR) = go acc lineR + go acc (line1 : lineR) = do newAcc <- case acc of PartialCommsOnly comms -> case line1 of e@EmptyLines{} -> do