From 95449bb4b93cf10468c47b27f20396d916c46778 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 13 Jul 2023 18:39:01 +0200
Subject: Send and receive direct messages through storage

---
 src/Main.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 6e118e6..aee0cc6 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -133,6 +133,12 @@ interactiveLoop st opts = runInputT defaultSettings $ do
     extPrint <- getExternalPrint
     let extPrintLn str = extPrint $ case reverse str of ('\n':_) -> str
                                                         _ -> str ++ "\n";
+
+    _ <- liftIO $ do
+        tzone <- getCurrentTimeZone
+        watchReceivedMessages erebosHead $
+            extPrintLn . formatMessage tzone . fromStored
+
     server <- liftIO $ do
         startServer (optServer opts) erebosHead extPrintLn
             [ someService @AttachService Proxy
-- 
cgit v1.2.3