diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index cdaa9ae..1aaa4f7 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -288,7 +288,7 @@ cmdSend = void $ do ehead <- asks ciHead Just peer <- gets csPeer text <- asks ciLine - smsg <- sendDirectMessage ehead peer $ T.pack text + smsg <- flip runReaderT ehead $ sendDirectMessage peer $ T.pack text tzone <- liftIO $ getCurrentTimeZone liftIO $ putStrLn $ formatMessage tzone $ fromStored smsg |