Commit 36e36227 authored by Alan Zimmerman's avatar Alan Zimmerman

Store string as parsed in SourceText for CImport

parent e755930d
......@@ -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
......
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