diff options
| author | joe <joe@jerkface.net> | 2014-03-13 17:30:22 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2014-03-13 17:30:22 -0400 |
| commit | 92faec23cc13774962eb4b144218d1b901e492c7 (patch) | |
| tree | 896fcbb59d6af8e35712ac0a0f17ba781d277cf8 /consolation.hs | |
| parent | c2d6529b839ffb6e92e90f6f99425ee6107a0dba (diff) | |
parse utmp remote address into SockAddr structure
Diffstat (limited to 'consolation.hs')
| -rw-r--r-- | consolation.hs | 2 |
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 |