Fix import sorting
parent
d5f1deaa3d
commit
dbc4266f18
|
@ -352,6 +352,7 @@ groupifyImportLines ls = finalToList_ $ go (PartialCommsOnly []) ls
|
||||||
finalYield $ NewlineComment comm
|
finalYield $ NewlineComment comm
|
||||||
PartialImport partialRecord ->
|
PartialImport partialRecord ->
|
||||||
finalYield $ ImportStatement $ unpartial partialRecord
|
finalYield $ ImportStatement $ unpartial partialRecord
|
||||||
|
go acc (EmptyLines 0 : lineR) = go acc lineR
|
||||||
go acc (line1 : lineR) = do
|
go acc (line1 : lineR) = do
|
||||||
newAcc <- case acc of
|
newAcc <- case acc of
|
||||||
PartialCommsOnly comms -> case line1 of
|
PartialCommsOnly comms -> case line1 of
|
||||||
|
|
Loading…
Reference in New Issue