From fc530e41ff8f5f2372b261badecf10891c16546c Mon Sep 17 00:00:00 2001
From: voker57 <voker57@gmail.com>
Date: Tue, 30 Jun 2009 18:50:34 +0900
Subject: [PATCH] Fixed reversed IP adress

Ignore-this: b0faa5170e62bfcd38361de992575d49

darcs-hash:20090630095034-9b677-401b942037a0eae4739e01d143ac21943ea99777.gz
---
 Network/HTTP/Lucu/Resource.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
                       _
-- 
2.40.0