diff options
Diffstat (limited to 'Types.hs')
-rw-r--r-- | Types.hs | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -27,9 +27,13 @@ data Activity a | StartActivity a Signature deriving (Show) +activityContent :: Activity a -> a +activityContent (Activity a _ _) = a +activityContent (StartActivity a _) = a + data Signature = Signature ByteString deriving (Show) -- | A SHA2 hash pointer to something that hashes to this value. newtype HashPointer = HashPointer (H.Digest H.SHA256) - deriving (Show) + deriving (Show, Eq) |