[commit: ghc] wip/az-D5036-2: D5036 rebased. (b6cc28d)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/az-D5036-2
Link       : http://ghc.haskell.org/trac/ghc/changeset/b6cc28d0bd5f783371a8c0742d2f0c8672ffad7c/ghc

>---------------------------------------------------------------

commit b6cc28d0bd5f783371a8c0742d2f0c8672ffad7c
Author: Alan Zimmerman <alan.zimm at gmail.com>
Date:   Wed Oct 24 21:08:59 2018 +0200

    D5036 rebased.
    
    Compiles (via ./validate) until haddock, missing the required patch.


>---------------------------------------------------------------

b6cc28d0bd5f783371a8c0742d2f0c8672ffad7c
 compiler/parser/Lexer.x | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x
index 8129cce..9472bd4 100644
--- a/compiler/parser/Lexer.x
+++ b/compiler/parser/Lexer.x
@@ -1161,7 +1161,7 @@ parseNestedPragma input@(AI _ buf) = do
   setExts (.&. complement (xbit InNestedCommentBit))
   postInput@(AI _ postBuf) <- getInput
   setInput origInput
-  case unLoc lt of
+  case unRealSrcSpan lt of
     ITcomment_line_prag -> do
       let bytes = byteDiff buf postBuf
           diff  = lexemeToString buf bytes