Commit 812d9f7f authored by Alan Zimmerman's avatar Alan Zimmerman Committed by Ben Gamari
Browse files

Store string as parsed in SourceText for CImport

(cherry picked from commit 36e36227)
parent 4212674b
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment