1 files changed, 5 insertions, 1 deletions
diff --git a/Types.hs b/Types.hs
index c41e30a..3061ba6 100644
--- a/Types.hs
+++ b/Types.hs
@@ -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)