bugfix

[Lucu.git] / examples / SSL.hs

diff --git a/examples/SSL.hs b/examples/SSL.hs
index 48b23813fbee4f2a746b2940fadf9252cba06965..6df2ab714e37c5ce4c265c8d10c1f176b5632894 100644 (file)
--- 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