mirror of
https://github.com/GaloisInc/macaw.git
synced 2024-11-24 08:53:12 +03:00
Add a PrettyF instance for PPCReg
This commit is contained in:
parent
4bed676ca2
commit
05061a2140
@ -31,6 +31,7 @@ import Data.Macaw.Types
|
||||
import Data.Parameterized.Classes
|
||||
import Data.Parameterized.Some ( Some(..) )
|
||||
import qualified Data.Parameterized.TH.GADT as TH
|
||||
import qualified Text.PrettyPrint.ANSI.Leijen as PP
|
||||
|
||||
import qualified Dismantle.PPC as D
|
||||
import qualified SemMC.Architecture.PPC.Location as APPC
|
||||
@ -69,6 +70,9 @@ instance Show (PPCReg arch tp) where
|
||||
instance ShowF (PPCReg arch) where
|
||||
showF = show
|
||||
|
||||
instance MC.PrettyF (PPCReg arch) where
|
||||
prettyF = PP.text . showF
|
||||
|
||||
$(return [])
|
||||
|
||||
instance TestEquality (PPCReg arch) where
|
||||
|
Loading…
Reference in New Issue
Block a user