X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FHttpd.hs;h=d180202759a903fe8a478eae1ecaf28d5b50c1e1;hp=0bb92b1635c74a1498b1ee2936f807d6153d356d;hb=6126eb9cbe5b38c300d855d96d2238831e59b5dd;hpb=558205096e7f51da7018458d173584ac31808082

diff --git a/Network/HTTP/Lucu/Httpd.hs b/Network/HTTP/Lucu/Httpd.hs
index 0bb92b1..d180202 100644
--- a/Network/HTTP/Lucu/Httpd.hs
+++ b/Network/HTTP/Lucu/Httpd.hs
@@ -101,7 +101,7 @@ runHttpd cnf tree fbs
                let addr = head addrs
                bracketOnError
                    (socket (addrFamily addr) (addrSocketType addr) (addrProtocol addr))
-                   (sClose)
+                   sClose
                    (\ sock ->
                         do setSocketOption sock ReuseAddr 1
                            bindSocket sock (addrAddress addr)