diff options
| -rw-r--r-- | compiler/hsSyn/HsDecls.hs | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/compiler/hsSyn/HsDecls.hs b/compiler/hsSyn/HsDecls.hs index 5a6d927ab9..bd0bcb527d 100644 --- a/compiler/hsSyn/HsDecls.hs +++ b/compiler/hsSyn/HsDecls.hs @@ -23,7 +23,7 @@ module HsDecls ( -- ** Class or type declarations TyClDecl(..), LTyClDecl, DataDeclRn(..), - TyClGroup(..), mkTyClGroup, emptyTyClGroup, + TyClGroup(..), tyClGroupTyClDecls, tyClGroupInstDecls, tyClGroupRoleDecls, isClassDecl, isDataDecl, isSynDecl, tcdName, isFamilyDecl, isTypeFamilyDecl, isDataFamilyDecl, @@ -916,9 +916,6 @@ type instance XCTyClGroup (GhcPass _) = NoExtField type instance XXTyClGroup (GhcPass _) = NoExtCon -emptyTyClGroup :: TyClGroup (GhcPass p) -emptyTyClGroup = TyClGroup noExtField [] [] [] - tyClGroupTyClDecls :: [TyClGroup pass] -> [LTyClDecl pass] tyClGroupTyClDecls = concatMap group_tyclds @@ -928,15 +925,6 @@ tyClGroupInstDecls = concatMap group_instds tyClGroupRoleDecls :: [TyClGroup pass] -> [LRoleAnnotDecl pass] tyClGroupRoleDecls = concatMap group_roles -mkTyClGroup :: [LTyClDecl (GhcPass p)] -> [LInstDecl (GhcPass p)] - -> TyClGroup (GhcPass p) -mkTyClGroup decls instds = TyClGroup - { group_ext = noExtField - , group_tyclds = decls - , group_roles = [] - , group_instds = instds - } - {- ********************************************************************* |