Commit c428552e authored by Antoine Fontaine's avatar Antoine Fontaine 🎱
Browse files

Pretty print the ip address

parent b37e8127
......@@ -106,7 +106,8 @@ processUpload pool pasteDir instanceUrl reqAddr mXForward multipData =
-- the database.
textifyAddress :: SockAddr -- ^ The address to 'Text'ify.
-> Text
textifyAddress (SockAddrInet _ host) = T.pack . show . hostAddressToTuple $ host
textifyAddress (SockAddrInet _ host) = T.pack . showIpAddr . hostAddressToTuple $ host
where showIpAddr (a, b, c, d) = show a++"."++show b++"."++show c++"."++show d
textifyAddress (SockAddrInet6 _ _ host _) = T.pack . show $ host
textifyAddress _ = "Address not found"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment