diff options
Diffstat (limited to 'compiler/GHC/Types/TyThing.hs')
| -rw-r--r-- | compiler/GHC/Types/TyThing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Types/TyThing.hs b/compiler/GHC/Types/TyThing.hs index 08d13b1257..ab400204d5 100644 --- a/compiler/GHC/Types/TyThing.hs +++ b/compiler/GHC/Types/TyThing.hs @@ -257,7 +257,7 @@ tyThingParent_maybe (AnId id) = case idDetails id of Just (ATyCon tc) RecSelId { sel_tycon = RecSelPatSyn ps } -> Just (AConLike (PatSynCon ps)) - ClassOpId cls -> + ClassOpId cls _ -> Just (ATyCon (classTyCon cls)) _other -> Nothing tyThingParent_maybe _other = Nothing |