diff options
Diffstat (limited to 'compiler/deSugar/DsForeign.hs')
-rw-r--r-- | compiler/deSugar/DsForeign.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/deSugar/DsForeign.hs b/compiler/deSugar/DsForeign.hs index acea47c57b..5893ae80f8 100644 --- a/compiler/deSugar/DsForeign.hs +++ b/compiler/deSugar/DsForeign.hs @@ -101,14 +101,14 @@ dsForeigns' fos = do where do_ldecl (L loc decl) = putSrcSpanDs loc (do_decl decl) - do_decl (ForeignImport id _ co spec) = do + do_decl (ForeignImport { fd_name = id, fd_co = co, fd_fi = spec }) = do traceIf (text "fi start" <+> ppr id) (bs, h, c) <- dsFImport (unLoc id) co spec traceIf (text "fi end" <+> ppr id) return (h, c, [], bs) - do_decl (ForeignExport (L _ id) _ co - (CExport (L _ (CExportStatic _ ext_nm cconv)) _)) = do + do_decl (ForeignExport { fd_name = L _ id, fd_co = co + , fd_fe = CExport (L _ (CExportStatic _ ext_nm cconv)) _ }) = do (h, c, _, _) <- dsFExport id co ext_nm cconv False return (h, c, [id], []) |