From 706626898aed272b6d72f53b466445810ac35a31 Mon Sep 17 00:00:00 2001 From: joe Date: Sun, 16 Mar 2014 20:15:40 -0400 Subject: newline after tty write --- Presence/ConsoleWriter.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Presence') 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 t <- messageText msg return $ Text.unpack $ case stanzaFrom msg of - Just from -> from <> " says...\n" <> t - Nothing -> t + Just from -> from <> " says...\n" <> t <> "\n" + Nothing -> t <> "\n" writeFile (Text.unpack tty) text return True -- return True if a message was delivered -- cgit v1.2.3