From a7d3efef2e17273fb28a3d711d00843c1c875a17 Mon Sep 17 00:00:00 2001 From: davve Date: Sat, 19 Aug 2006 20:07:55 +0000 Subject: Adapt to latest GHC --- src/HaddockRename.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/HaddockRename.hs') diff --git a/src/HaddockRename.hs b/src/HaddockRename.hs index 8f7698ac..65af08e8 100644 --- a/src/HaddockRename.hs +++ b/src/HaddockRename.hs @@ -294,12 +294,12 @@ renameSig sig = case sig of return (FixitySig lname' x) -} -renameForD (ForeignImport lname ltype x y) = do +renameForD (ForeignImport lname ltype x) = do ltype' <- renameLType ltype - return (ForeignImport (keepL lname) ltype' x y) -renameForD (ForeignExport lname ltype x y) = do + return (ForeignImport (keepL lname) ltype' x) +renameForD (ForeignExport lname ltype x) = do ltype' <- renameLType ltype - return (ForeignExport (keepL lname) ltype' x y) + return (ForeignExport (keepL lname) ltype' x) renameExportItem :: ExportItem2 Name -> RnM (ExportItem2 DocName) renameExportItem item = case item of -- cgit v1.2.3