diff options
Diffstat (limited to 'compiler/main')
| -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 |