From 0923aad584dbf673ca83780fa51639b242d94e35 Mon Sep 17 00:00:00 2001 From: Vladislav Zavialov Date: Sat, 20 Jul 2019 20:23:54 +0300 Subject: Drop unused helpers 'mkTyClGroup' and 'emptyTyClGroup' --- compiler/hsSyn/HsDecls.hs | 14 +------------- 1 file changed, 1 insertion(+), 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 - } - {- ********************************************************************* -- cgit v1.2.1