diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2019-07-20 20:23:54 +0300 |
|---|---|---|
| committer | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2019-07-20 20:23:54 +0300 |
| commit | 0923aad584dbf673ca83780fa51639b242d94e35 (patch) | |
| tree | dcb762088228725460e2faf6ea8bc3a5eb5f8a35 | |
| parent | 4dfd6a5fd633706d6ebacfc962b656b7cca85a39 (diff) | |
| download | haskell-wip/tyclgroup-unused-helpers.tar.gz | |
Drop unused helpers 'mkTyClGroup' and 'emptyTyClGroup'wip/tyclgroup-unused-helpers
| -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 - } - {- ********************************************************************* |