[commit: ghc] master: Store string as parsed in SourceText for CImport (36e3622)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/36e36227e438d95fae367d10183ea43b4819854f/ghc

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

commit 36e36227e438d95fae367d10183ea43b4819854f
Author: Alan Zimmerman <alan.zimm at gmail.com>
Date:   Tue Nov 29 21:06:52 2016 +0200

    Store string as parsed in SourceText for CImport


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

36e36227e438d95fae367d10183ea43b4819854f
 compiler/parser/RdrHsSyn.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/parser/RdrHsSyn.hs b/compiler/parser/RdrHsSyn.hs
index 3c1792b..ab5708e 100644
--- a/compiler/parser/RdrHsSyn.hs
+++ b/compiler/parser/RdrHsSyn.hs
@@ -1315,7 +1315,7 @@ mkImport cconv safety (L loc (StringLiteral esrc entity), v, ty) =
     -- name (cf section 8.5.1 in Haskell 2010 report).
     mkCImport = do
       let e = unpackFS entity
-      case parseCImport cconv safety (mkExtName (unLoc v)) e (L loc e) of
+      case parseCImport cconv safety (mkExtName (unLoc v)) e (L loc esrc) of
         Nothing         -> parseErrorSDoc loc (text "Malformed entity string")
         Just importSpec -> returnSpec importSpec