diff options
Diffstat (limited to 'main/Main.hs')
-rw-r--r-- | main/Main.hs | 2 |
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 |