Pretty print the ip address

src/Paste/Handlers.hs

@@ -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"