fix typo
Recent commit got amended accidentially to include this typo. Argh. It was fine, then I tweakd the commit message and accidentially staged this breakage.
This commit is contained in:
parent
2265d9dad7
commit
d137bd4c29
1 changed files with 1 additions and 1 deletions
|
@ -30,7 +30,7 @@ import Prelude
|
|||
extractIPAddress :: SockAddr -> Maybe String
|
||||
extractIPAddress (SockAddrInet _ ipv4) =
|
||||
let (a,b,c,d) = hostAddressToTuple ipv4
|
||||
in Just $ tintercalate "." [conv a, conv b, conv c, conv d]
|
||||
in Just $ intercalate "." [conv a, conv b, conv c, conv d]
|
||||
where
|
||||
conv a
|
||||
| show x == show b12 = conv a
|
||||
|
|
Loading…
Reference in a new issue