1 files changed, 6 insertions, 0 deletions
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