From: voker57 Date: Tue, 30 Jun 2009 09:50:34 +0000 (+0900) Subject: Fixed reversed IP adress X-Git-Tag: RELEASE-0_3_2~2 X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=commitdiff_plain;h=fc530e41ff8f5f2372b261badecf10891c16546c;p=Lucu.git Fixed reversed IP adress Ignore-this: b0faa5170e62bfcd38361de992575d49 darcs-hash:20090630095034-9b677-401b942037a0eae4739e01d143ac21943ea99777.gz --- diff --git a/Network/HTTP/Lucu/Resource.hs b/Network/HTTP/Lucu/Resource.hs index 4fb836f..e48ea21 100644 --- a/Network/HTTP/Lucu/Resource.hs +++ b/Network/HTTP/Lucu/Resource.hs @@ -220,7 +220,7 @@ getRemoteAddr' = do addr <- getRemoteAddr b3 = (v4addr `shiftR` 8) .&. 0xFF b4 = v4addr .&. 0xFF in - return $ concat $ intersperse "." $ map show [b1, b2, b3, b4] + return $ concat $ intersperse "." $ map show [b4, b3, b2, b1] SockAddrUnix path -> return path _