diff options
Diffstat (limited to 'compiler/GHC/Parser/HaddockLex.x')
-rw-r--r-- | compiler/GHC/Parser/HaddockLex.x | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Parser/HaddockLex.x b/compiler/GHC/Parser/HaddockLex.x index 52e67894b5..df281db933 100644 --- a/compiler/GHC/Parser/HaddockLex.x +++ b/compiler/GHC/Parser/HaddockLex.x @@ -187,7 +187,7 @@ validateIdentWith identParser mloc str0 = pstate = initParserState pflags buffer realSrcLc in case unP identParser pstate of POk _ name -> Just $ case mloc of - RealSrcSpan _ _ -> reLoc name + RealSrcSpan _ _ -> reLocN name UnhelpfulSpan _ -> L mloc (unLoc name) -- Preserve the original reason _ -> Nothing } |