diff --git a/source/library/Language/Haskell/Brittany/Internal/S2_SplitModule.hs b/source/library/Language/Haskell/Brittany/Internal/S2_SplitModule.hs index ba87065..bc93371 100644 --- a/source/library/Language/Haskell/Brittany/Internal/S2_SplitModule.hs +++ b/source/library/Language/Haskell/Brittany/Internal/S2_SplitModule.hs @@ -103,7 +103,7 @@ splitModuleDecls lmod = do lastSpan <- do finalYield $ MEExactModuleHead moduleWithoutComments pure - $ maybe (1, 1) (ExactPrint.ss2posEnd) + $ maybe (0, 1) (ExactPrint.ss2posEnd) $ maximumMay $ [ GHC.anchor a | L a _ <- GHC.priorComments $ case hsModAnn' of