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 :: SockAddr -> Maybe String
|
||||||
extractIPAddress (SockAddrInet _ ipv4) =
|
extractIPAddress (SockAddrInet _ ipv4) =
|
||||||
let (a,b,c,d) = hostAddressToTuple 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
|
where
|
||||||
conv a
|
conv a
|
||||||
| show x == show b12 = conv a
|
| show x == show b12 = conv a
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue