Cosmetic changes suggested by hlint.

[Lucu.git] / Network / HTTP / Lucu / Httpd.hs

diff --git a/Network/HTTP/Lucu/Httpd.hs b/Network/HTTP/Lucu/Httpd.hs
index 0bb92b1635c74a1498b1ee2936f807d6153d356d..d180202759a903fe8a478eae1ecaf28d5b50c1e1 100644 (file)
--- 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)