X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=examples%2FSSL.hs;h=b9b76a3919e7c12f7930c08b2714f5d47d568637;hb=8a7649cdf5d96d511dd6e2dfa4e2b741ffac4f9a;hp=6df2ab714e37c5ce4c265c8d10c1f176b5632894;hpb=2089e7b8c07ae67292073b4113eb14d858a4a2c0;p=Lucu.git

diff --git a/examples/SSL.hs b/examples/SSL.hs
index 6df2ab7..b9b76a3 100644
--- a/examples/SSL.hs
+++ b/examples/SSL.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE
     OverloadedStrings
   , PackageImports
+  , QuasiQuotes
   , UnicodeSyntax
   #-}
 import Control.Applicative
@@ -40,7 +41,7 @@ helloWorld ∷ ResourceDef
 helloWorld 
     = emptyResource {
         resGet
-          = Just $ do setContentType $ parseMIMEType "text/plain"
+          = Just $ do setContentType [mimeType| text/plain |]
                       putChunk "getRemoteCertificate = "
                       cert ← do cert ← getRemoteCertificate
                                 case cert of