add ppInstructionAsShowS

GaloisInc · Jun 14, 2023 · 047d5f1 · 047d5f1
1 parent ab1ae28
commit 047d5f1
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/Flexdis86/InstructionSet.hs b/src/Flexdis86/InstructionSet.hs
@@ -11,6 +11,7 @@ module Flexdis86.InstructionSet
     InstructionInstance
   , InstructionInstanceF(..)
   , ppInstruction
+  , ppInstructionAsShowS
   , ppInstructionWith
   , Value(..)
   , ppValue
@@ -294,6 +295,11 @@ ppInstruction i =
             ([], _) -> sLockPrefix <+> text op
             (_,_)   -> sLockPrefix <+> text op <+> ppPunctuate comma (ppValue <$> args)
 
+-- | Allows libraries using `ppInstruction` to not have to depend on deprecated
+-- ansi-wl-pprint to turn instructions into `String`s.
+ppInstructionAsShowS :: InstructionInstance -> ShowS
+ppInstructionAsShowS = displayS . renderCompact . ppInstruction
+
 ppInstructionWith :: (a -> Doc)
                   -> InstructionInstanceF a
                   -> Doc