X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FHttpd.hs;h=ac1dc77a66379508ac8f1bf2c0528c1f2ddd037a;hp=fb87d820f13f42a665c1b4a86cc99f6678fdaed4;hb=3baf479eba12bc3e9c4ef966df770cd70aa5cd81;hpb=57b93dc50655857941cc176aed2fc085e6555ff7

diff --git a/Network/HTTP/Lucu/Httpd.hs b/Network/HTTP/Lucu/Httpd.hs
index fb87d82..ac1dc77 100644
--- a/Network/HTTP/Lucu/Httpd.hs
+++ b/Network/HTTP/Lucu/Httpd.hs
@@ -48,7 +48,7 @@ import Prelude.Unicode
 -- >              }
 --
 -- FIXME: update the above example
-runHttpd ∷ Config → HostMap → IO ()
+runHttpd ∷ HostMapper α ⇒ Config → α → IO ()
 runHttpd cnf hm
     = do let launchers
                  = catMaybes