GaloisInc/macaw
1
1
Fork 0
mirror of https://github.com/GaloisInc/macaw.git synced 2024-11-29 21:44:11 +03:00
Code Issues Projects Releases Wiki Activity

Add Show{,F} instances for MacawCrucibleValue (#232)

Browse Source 
I found these useful while printf debugging.
This commit is contained in:
Ryan Scott 2021-09-28 08:52:05 -04:00 committed by GitHub
parent a336895da7
commit fbd7bce217
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
symbolic/src/Data/Macaw/Symbolic/PersistentState.hs
View File

@ -251,6 +251,11 @@ instance FoldableFC MacawCrucibleValue where
instance TraversableFC MacawCrucibleValue where
traverseFC f (MacawCrucibleValue v) = MacawCrucibleValue <$> f v
instance ShowF f => ShowF (MacawCrucibleValue f)
instance ShowF f => Show (MacawCrucibleValue f tp) where
showsPrec p (MacawCrucibleValue v) = showsPrecF p v
------------------------------------------------------------------------
-- CrucPersistentState