From: voker57 <voker57@gmail.com>
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: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=commitdiff_plain;h=fc530e41ff8f5f2372b261badecf10891c16546c

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
                       _