summaryrefslogtreecommitdiff
path: root/consolation.hs
diff options
context:
space:
mode:
Diffstat (limited to 'consolation.hs')
-rw-r--r--consolation.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/consolation.hs b/consolation.hs
index 0c6e907a..3daa258b 100644
--- a/consolation.hs
+++ b/consolation.hs
@@ -99,7 +99,7 @@ newCon log activeTTY utmp = do
99 then " host=" <> tshow (utmpHost u) 99 then " host=" <> tshow (utmpHost u)
100 else "") 100 else "")
101 <> " session=" <> tshow (utmpSession u) 101 <> " session=" <> tshow (utmpSession u)
102 <> " addr=" <> utmpRemoteAddr u 102 <> " addr=" <> tshow (utmpRemoteAddr u)
103 loop tty tu (Just u) 103 loop tty tu (Just u)
104 where 104 where
105 bstatus r ttynum mtu 105 bstatus r ttynum mtu