From 921dbf9b6c63433884a998a4559200903080bd0c Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Mon, 21 Dec 2009 16:15:35 +0200 Subject: [PATCH] Ajaxified fact example --- examples/fact.html | 20 +++++++++++++++++++- examples/fact.lhs | 5 ++++- 2 files changed, 23 insertions(+), 2 deletions(-) diff --git a/examples/fact.html b/examples/fact.html index db3e135f..4f849dd4 100644 --- a/examples/fact.html +++ b/examples/fact.html @@ -2,11 +2,29 @@ Factorials + + +

-

+

diff --git a/examples/fact.lhs b/examples/fact.lhs index e41c6ae3..4ede5469 100644 --- a/examples/fact.lhs +++ b/examples/fact.lhs @@ -16,7 +16,10 @@ instance Yesod Fact where |] index = return $ StaticFile TypeHtml "examples/fact.html" -fact i = return $ toHtmlObject $ show $ product [1..fromIntegral i] +fact i = return $ toHtmlObject + [ ("input", show i) + , ("result", show $ product [1..fromIntegral i]) + ] factRedirect = do i <- getParam "num" redirect $ "../" ++ i ++ "/"