diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-01-03 18:31:29 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-01-03 18:31:29 +0000 |
| commit | 57491ab4ac6263d9d9a11e972e7a95c840c299de (patch) | |
| tree | 0b895b6c41b6b3e6ddbd49cfc3aed9b389614897 /src/Haddock/Interface/Create.hs | |
| parent | 949849c3fde2ea2838b143717f250c4cce9e026e (diff) | |
Follow rename of Instance to ClsInst in GHC
Diffstat (limited to 'src/Haddock/Interface/Create.hs')
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs index 580aaa83..e51c8367 100644 --- a/src/Haddock/Interface/Create.hs +++ b/src/Haddock/Interface/Create.hs @@ -160,7 +160,7 @@ parseOption other = tell ["Unrecognised option: " ++ other] >> return Nothing type Maps = (DocMap Name, ArgMap Name, SubMap, DeclMap) -mkMaps :: DynFlags -> GlobalRdrEnv -> [Instance] -> [Name] -> [(LHsDecl Name, [HsDocString])] -> ErrMsgM Maps +mkMaps :: DynFlags -> GlobalRdrEnv -> [ClsInst] -> [Name] -> [(LHsDecl Name, [HsDocString])] -> ErrMsgM Maps mkMaps dflags gre instances exports decls = do maps <- mapM f decls let mergeMaps (a,b,c,d) (x,y,z,w) = @@ -201,10 +201,10 @@ mkMaps dflags gre instances exports decls = do -- Note [2]: ------------ --- We relate Instances to InstDecls using the SrcSpans buried inside them. +-- We relate ClsInsts to InstDecls using the SrcSpans buried inside them. -- That should work for normal user-written instances (from looking at GHC -- sources). We can assume that commented instances are user-written. --- This lets us relate Names (from Instances) to comments (associated +-- This lets us relate Names (from ClsInsts) to comments (associated -- with InstDecls). @@ -384,7 +384,7 @@ mkExportItems -> [LHsDecl Name] -> Maps -> Maybe [IE Name] - -> [Instance] + -> [ClsInst] -> InstIfaceMap -> DynFlags -> ErrMsgGhc [ExportItem Name] |