diff options
Diffstat (limited to 'src/HaddockRename.hs')
| -rw-r--r-- | src/HaddockRename.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/HaddockRename.hs b/src/HaddockRename.hs index 9dfa7147..ce954a52 100644 --- a/src/HaddockRename.hs +++ b/src/HaddockRename.hs @@ -85,10 +85,10 @@ renameDecl decl HsNewTypeDecl loc ctx t args con drv -> do con <- renameConDecl con return (HsNewTypeDecl loc ctx t args con drv) - HsClassDecl loc qt decls -> do + HsClassDecl loc qt fds decls -> do qt <- renameClassHead qt decls <- mapM renameDecl decls - return (HsClassDecl loc qt decls) + return (HsClassDecl loc qt fds decls) HsTypeSig loc fs qt -> do qt <- renameType qt return (HsTypeSig loc fs qt) |