From d137bd4c29528321916a9fb9e0b874a613ab26d7 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 23 Jun 2022 13:54:34 -0400 Subject: [PATCH] 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. --- Utility/IPAddress.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Utility/IPAddress.hs b/Utility/IPAddress.hs index 08bf63a862..9c683181bf 100644 --- a/Utility/IPAddress.hs +++ b/Utility/IPAddress.hs @@ -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