diff options
author | Alan Zimmerman <alan.zimm@gmail.com> | 2016-11-29 21:06:52 +0200 |
---|---|---|
committer | Alan Zimmerman <alan.zimm@gmail.com> | 2016-11-29 21:07:58 +0200 |
commit | 36e36227e438d95fae367d10183ea43b4819854f (patch) | |
tree | 63deb7ac07285fd406e2f7b73cc55583363eadb0 /compiler/parser | |
parent | e755930d7f1e5f2b6161cf61aae267ed3094bfe6 (diff) | |
download | haskell-36e36227e438d95fae367d10183ea43b4819854f.tar.gz |
Store string as parsed in SourceText for CImport
Diffstat (limited to 'compiler/parser')
-rw-r--r-- | compiler/parser/RdrHsSyn.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/parser/RdrHsSyn.hs b/compiler/parser/RdrHsSyn.hs index 3c1792b29c..ab5708e51d 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 |