summaryrefslogtreecommitdiff
path: root/main/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'main/Main.hs')
-rw-r--r--main/Main.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/main/Main.hs b/main/Main.hs
index 68bbc8a..974038f 100644
--- a/main/Main.hs
+++ b/main/Main.hs
@@ -369,7 +369,7 @@ interactiveLoop st opts = withTerminal commandCompletion $ \term -> do
_ <- liftIO $ do
tzone <- getCurrentTimeZone
- watchReceivedMessages erebosHead $ \smsg -> do
+ watchReceivedDirectMessages erebosHead $ \smsg -> do
let msg = fromStored smsg
extPrintLn $ formatDirectMessage tzone msg
case optDmBotEcho opts of