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/AttachInstances.hs | |
| parent | 949849c3fde2ea2838b143717f250c4cce9e026e (diff) | |
Follow rename of Instance to ClsInst in GHC
Diffstat (limited to 'src/Haddock/Interface/AttachInstances.hs')
| -rw-r--r-- | src/Haddock/Interface/AttachInstances.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Interface/AttachInstances.hs b/src/Haddock/Interface/AttachInstances.hs index c012f2e0..90416cd0 100644 --- a/src/Haddock/Interface/AttachInstances.hs +++ b/src/Haddock/Interface/AttachInstances.hs @@ -91,7 +91,7 @@ lookupInstDoc name iface ifaceMap instIfaceMap = -- | Like GHC's getInfo but doesn't cut things out depending on the -- interative context, which we don't set sufficiently anyway. -getAllInfo :: GhcMonad m => Name -> m (Maybe (TyThing,Fixity,[Instance])) +getAllInfo :: GhcMonad m => Name -> m (Maybe (TyThing,Fixity,[ClsInst])) getAllInfo name = withSession $ \hsc_env -> do (_msgs, r) <- liftIO $ tcRnGetInfo hsc_env name return r |