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

diff --git a/examples/SSL.hs b/examples/SSL.hs
index 48b2381..6df2ab7 100644
--- a/examples/SSL.hs
+++ b/examples/SSL.hs
@@ -41,12 +41,12 @@ helloWorld
     = emptyResource {
         resGet
           = Just $ do setContentType $ parseMIMEType "text/plain"
-                      outputChunk "getRemoteCertificate = "
+                      putChunk "getRemoteCertificate = "
                       cert ← do cert ← getRemoteCertificate
                                 case cert of
                                   Just c  → liftIO $ Lazy.pack <$> printX509 c
                                   Nothing → return "Nothing"
-                      outputChunk cert
+                      putChunks cert
       }
 
 genCert ∷ KeyPair k ⇒ k → IO X509