diff options
Diffstat (limited to 'src/Erebos/Conversation.hs')
| -rw-r--r-- | src/Erebos/Conversation.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Erebos/Conversation.hs b/src/Erebos/Conversation.hs index 365f8de..1c2b340 100644 --- a/src/Erebos/Conversation.hs +++ b/src/Erebos/Conversation.hs @@ -2,6 +2,7 @@ module Erebos.Conversation ( Message, + makeMessage, messageFrom, messageTime, messageText, @@ -51,6 +52,9 @@ import Erebos.TextFormat.Types data Message = forall conv msg. ConversationType conv msg => Message msg Bool +makeMessage :: ConversationType conv msg => Bool -> msg -> Message +makeMessage = flip Message + withMessage :: (forall conv msg. ConversationType conv msg => msg -> a) -> Message -> a withMessage f (Message msg _) = f msg |