Conversation reference using RefDigest

1 files changed, 4 insertions, 0 deletions

diff --git a/src/Erebos/Conversation/Class.hs b/src/Erebos/Conversation/Class.hs
index 6a28651..77458fa 100644
--- a/src/Erebos/Conversation/Class.hs
+++ b/src/Erebos/Conversation/Class.hs
@@ -1,5 +1,6 @@
 module Erebos.Conversation.Class (
     ConversationType(..),
+    RefDigest,
 ) where
 
 import Data.Text (Text)
@@ -7,10 +8,13 @@ import Data.Time.LocalTime
 import Data.Typeable
 
 import Erebos.Identity
+import Erebos.Object
 
 
 class (Typeable conv, Typeable msg) => ConversationType conv msg | conv -> msg, msg -> conv where
     convMessageFrom :: msg -> ComposedIdentity
     convMessageTime :: msg -> ZonedTime
     convMessageText :: msg -> Maybe Text
+
+    convReference :: conv -> RefDigest
     convMessageListSince :: Maybe conv -> conv -> [ ( msg, Bool ) ]