diff options
Diffstat (limited to 'Presence')
-rw-r--r-- | Presence/ConsoleWriter.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Presence/ConsoleWriter.hs b/Presence/ConsoleWriter.hs index 9fce6701..a7111b4b 100644 --- a/Presence/ConsoleWriter.hs +++ b/Presence/ConsoleWriter.hs | |||
@@ -244,8 +244,8 @@ deliverTerminalMessage cw tty utmp msg = do | |||
244 | t <- messageText msg | 244 | t <- messageText msg |
245 | return $ Text.unpack | 245 | return $ Text.unpack |
246 | $ case stanzaFrom msg of | 246 | $ case stanzaFrom msg of |
247 | Just from -> from <> " says...\n" <> t | 247 | Just from -> from <> " says...\n" <> t <> "\n" |
248 | Nothing -> t | 248 | Nothing -> t <> "\n" |
249 | writeFile (Text.unpack tty) text | 249 | writeFile (Text.unpack tty) text |
250 | return True -- return True if a message was delivered | 250 | return True -- return True if a message was delivered |
251 | 251 | ||