diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-03-26 15:10:03 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-06-13 02:13:01 -0400 |
| commit | 2517a51c0f949c1021de9f7c16f67345c6ab78a9 (patch) | |
| tree | 82c806209b25125a428a6415ade64d6c95de9328 /compiler/GHC/Llvm/MetaData.hs | |
| parent | 3445b9652671280920755ee3d2b49780eeb3a991 (diff) | |
| download | haskell-2517a51c0f949c1021de9f7c16f67345c6ab78a9.tar.gz | |
DynFlags refactoring VIII (#17957)
* Remove several uses of `sdocWithDynFlags`, especially in GHC.Llvm.*
* Add LlvmOpts datatype to store Llvm backend options
* Remove Outputable instances (for LlvmVar, LlvmLit, LlvmStatic and
Llvm.MetaExpr) which require LlvmOpts.
* Rename ppMetaExpr into ppMetaAnnotExpr (pprMetaExpr is now used in place of `ppr :: MetaExpr -> SDoc`)
Diffstat (limited to 'compiler/GHC/Llvm/MetaData.hs')
| -rw-r--r-- | compiler/GHC/Llvm/MetaData.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/compiler/GHC/Llvm/MetaData.hs b/compiler/GHC/Llvm/MetaData.hs index c2a1aa4a8f..b485d94dbe 100644 --- a/compiler/GHC/Llvm/MetaData.hs +++ b/compiler/GHC/Llvm/MetaData.hs @@ -1,4 +1,5 @@ {-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} module GHC.Llvm.MetaData where @@ -73,13 +74,6 @@ data MetaExpr = MetaStr !LMString | MetaStruct [MetaExpr] deriving (Eq) -instance Outputable MetaExpr where - ppr (MetaVar (LMLitVar (LMNullLit _))) = text "null" - ppr (MetaStr s ) = char '!' <> doubleQuotes (ftext s) - ppr (MetaNode n ) = ppr n - ppr (MetaVar v ) = ppr v - ppr (MetaStruct es) = char '!' <> braces (ppCommaJoin es) - -- | Associates some metadata with a specific label for attaching to an -- instruction. data MetaAnnot = MetaAnnot LMString MetaExpr |