diff options
author | joe <joe@jerkface.net> | 2014-03-16 20:15:40 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2014-03-16 20:15:40 -0400 |
commit | 706626898aed272b6d72f53b466445810ac35a31 (patch) | |
tree | 77b4d1fdaede9942ad59af0c4c2a10de18acb75f /Presence | |
parent | 0a814be19a3afe2e8cfefe5d5f1e0c51fb3bbc15 (diff) |
newline after tty write
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 | ||