X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FHttpd.hs;h=3f2d7330796d7acea4cebf8a39680a24a44fa0b9;hp=883a9a651f4999a893811670ebb114badc5e4bad;hb=8a7649cdf5d96d511dd6e2dfa4e2b741ffac4f9a;hpb=874e6a4cc1229d29f1d902f36482cf0f78e30c9f

diff --git a/Network/HTTP/Lucu/Httpd.hs b/Network/HTTP/Lucu/Httpd.hs
index 883a9a6..3f2d733 100644
--- a/Network/HTTP/Lucu/Httpd.hs
+++ b/Network/HTTP/Lucu/Httpd.hs
@@ -29,6 +29,7 @@ import Network.HTTP.Lucu.SocketLike as SL
 -- Example:
 --
 -- > {-# LANGUAGE OverloadedStrings #-}
+-- > {-# LANGUAGE QuasiQuotes #-}
 -- > module Main where
 -- > import Network.HTTP.Lucu
 -- > 
@@ -41,7 +42,7 @@ import Network.HTTP.Lucu.SocketLike as SL
 -- > helloWorld :: ResourceDef
 -- > helloWorld = emptyResource {
 -- >                resGet
--- >                  = Just $ do setContentType $ parseMIMEType "text/plain"
+-- >                  = Just $ do setContentType [mimeType| text/plain |]
 -- >                              putChunk "Hello, world!"
 -- >              }
 runHttpd ∷ Config → ResTree → [FallbackHandler] → IO ()