diff options
| author | Brian Foley <bpfoley@google.com> | 2020-03-13 22:34:15 -0700 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-03-15 03:58:18 -0400 |
| commit | b4774598e6bd060b1b4230b11b734ca40022980d (patch) | |
| tree | 9b28fdfa3aaa36a41ebc711efa795005953dc93d /compiler/main/Annotations.hs | |
| parent | d30aeb4b38381758025bc1002eb2135ad6bc58b8 (diff) | |
| download | haskell-b4774598e6bd060b1b4230b11b734ca40022980d.tar.gz | |
Remove some dead code
From the notes.ghc.drop list found using weeder in #17713
Diffstat (limited to 'compiler/main/Annotations.hs')
| -rw-r--r-- | compiler/main/Annotations.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/compiler/main/Annotations.hs b/compiler/main/Annotations.hs index c282217d33..3c4340e900 100644 --- a/compiler/main/Annotations.hs +++ b/compiler/main/Annotations.hs @@ -9,7 +9,6 @@ module Annotations ( -- * Main Annotation data types Annotation(..), AnnPayload, AnnTarget(..), CoreAnnTarget, - getAnnTargetName_maybe, -- * AnnEnv for collecting and querying Annotations AnnEnv, @@ -57,11 +56,6 @@ data AnnTarget name -- | The kind of annotation target found in the middle end of the compiler type CoreAnnTarget = AnnTarget Name --- | Get the 'name' of an annotation target if it exists. -getAnnTargetName_maybe :: AnnTarget name -> Maybe name -getAnnTargetName_maybe (NamedTarget nm) = Just nm -getAnnTargetName_maybe _ = Nothing - instance Outputable name => Outputable (AnnTarget name) where ppr (NamedTarget nm) = text "Named target" <+> ppr nm ppr (ModuleTarget mod) = text "Module target" <+> ppr mod |