display drop safety proofs in debug mode

This commit is contained in:
Joey Hess 2015-10-09 13:47:19 -04:00
parent 865dd11dbf
commit a5e74e9e64
Failed to extract signature
2 changed files with 25 additions and 6 deletions

View file

@ -31,7 +31,7 @@ import Control.Monad.IO.Class (MonadIO)
import Control.Monad
newtype NumCopies = NumCopies Int
deriving (Ord, Eq)
deriving (Ord, Eq, Show)
fromNumCopies :: NumCopies -> Int
fromNumCopies (NumCopies n) = n
@ -138,6 +138,7 @@ fullVerification (RecentlyVerifiedCopy _) = False
-- A proof that it's currently safe to drop an object.
data SafeDropProof = SafeDropProof NumCopies [VerifiedCopy]
deriving (Show)
-- Make sure that none of the VerifiedCopies have become invalidated
-- before constructing proof.