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 4fb836f065ef55ba4d0a9d2f48f73dae190cc0ed..e48ea217ff99b6c7bc9c6e0a3057ab8c904db636 100644 (file)
--- 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
                       _