X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FHttpd.hs;h=a5f974978a4c6e5ccc4baad408d61bd5ce69f661;hp=0d78f986f314f21573aea96c7ff05304c3cea8ba;hb=950640dd241222203778f8167943d30fa52f356a;hpb=251831f3e465eb77666193efcb9b4c02531faa6c

diff --git a/Network/HTTP/Lucu/Httpd.hs b/Network/HTTP/Lucu/Httpd.hs
index 0d78f98..a5f9749 100644
--- 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