hlint

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

diff --git a/Network/HTTP/Lucu/Httpd.hs b/Network/HTTP/Lucu/Httpd.hs
index 0d78f986f314f21573aea96c7ff05304c3cea8ba..a5f974978a4c6e5ccc4baad408d61bd5ce69f661 100644 (file)
--- a/Network/HTTP/Lucu/Httpd.hs
+++ b/Network/HTTP/Lucu/Httpd.hs
@@ -41,7 +41,7 @@ import Prelude.Unicode
 --              tree   :: 'ResourceTree'
 --              tree   = C.fromList [ ([], 'nonGreedy' helloWorld) ]
 --          in
---            'Network.withSocketsDo' '$' 'runHttpd' config '$' 'resourceMap' tree
+--            'Network.withSocketsDo' '.' 'runHttpd' config '$' 'resourceMap' tree
 --
 --   helloWorld :: 'Network.HTTP.Lucu.Resource'
 --   helloWorld = C.fromList