diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2019-07-20 20:23:54 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-07-24 23:11:57 -0400 |
| commit | e07f0e2bec525a147518fceb139cad402e00ed8c (patch) | |
| tree | b1d3b4d847def595197c30722dda8cbac82a2f9c | |
| parent | 90dd2ea0aedb554702db5250e7da9eedb87e5c13 (diff) | |
| download | haskell-e07f0e2bec525a147518fceb139cad402e00ed8c.tar.gz | |
Drop unused helpers 'mkTyClGroup' and 'emptyTyClGroup'
| -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 - } - {- ********************************************************************* |