diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2016-11-29 21:06:52 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-12-02 11:00:37 -0500 |
| commit | 812d9f7f5882287f0121b8be3b446f3ee7c271ab (patch) | |
| tree | 644a6655158f68d6a6b87d1472d44a2a1cf5efe0 | |
| parent | 4212674ba92971734eec064809f8e1a45bca992a (diff) | |
| download | haskell-812d9f7f5882287f0121b8be3b446f3ee7c271ab.tar.gz | |
Store string as parsed in SourceText for CImport
(cherry picked from commit 36e36227e438d95fae367d10183ea43b4819854f)
| -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 d79ac66439..5c5512748e 100644 --- a/compiler/parser/RdrHsSyn.hs +++ b/compiler/parser/RdrHsSyn.hs @@ -1288,7 +1288,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 |