haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ajaxified fact example

Browse Source
This commit is contained in:
Michael Snoyman 2009-12-21 16:15:35 +02:00
parent 7ab3b406db
commit 921dbf9b6c
2 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
examples/fact.html
View File

@ -2,11 +2,29 @@
<html> <html>
<head> <head>
<title>Factorials</title> <title>Factorials</title>
<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.3.2/jquery.min.js"></script>
<script>
$(function(){
$("#num").parent().append("<span id='result'></span>");
$("#submit").click(function() {
$.getJSON($("#num").attr("value") + "/", function(o) {
$("#result").text("fact(" + o.input + ") = " + o.result);
});
return false;
});
});
</script>
<style>
#result {
padding-left: 1em;
color: #090;
}
</style>
</head> </head>
<body> <body>
<form method="get" action="fact/"> <form method="get" action="fact/">
<p><label for="num">Number:</label> <input type="text" id="num" name="num"></p> <p><label for="num">Number:</label> <input type="text" id="num" name="num"></p>
<p><input type="submit" value="Get the factorial!"></p> <p><input id="submit" type="submit" value="Get the factorial!"></p>
</form> </form>
</body> </body>
</html> </html>

5
examples/fact.lhs
View File

@ -16,7 +16,10 @@ instance Yesod Fact where
|] |]
index = return $ StaticFile TypeHtml "examples/fact.html" 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 factRedirect = do
i <- getParam "num" i <- getParam "num"
redirect $ "../" ++ i ++ "/" redirect $ "../" ++ i ++ "/"