diff options
Diffstat (limited to 'compiler/GHC/Parser/Lexer.x')
| -rw-r--r-- | compiler/GHC/Parser/Lexer.x | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/compiler/GHC/Parser/Lexer.x b/compiler/GHC/Parser/Lexer.x index a5af14a8ba..33056d7263 100644 --- a/compiler/GHC/Parser/Lexer.x +++ b/compiler/GHC/Parser/Lexer.x @@ -3701,11 +3701,13 @@ allocatePriorComments ss comment_q mheader_comments = cmp (L l _) = anchor l <= ss (newAnns,after) = partition cmp comment_q comment_q'= after - (prior_comments, decl_comments) = splitPriorComments ss newAnns + (prior_comments, decl_comments) + = case mheader_comments of + Strict.Nothing -> (reverse newAnns, []) + _ -> splitPriorComments ss newAnns in case mheader_comments of Strict.Nothing -> (Strict.Just prior_comments, comment_q', decl_comments) - -- Strict.Nothing -> (Strict.Just [], comment_q', newAnns) Strict.Just _ -> (mheader_comments, comment_q', reverse newAnns) allocateFinalComments |