yesod-examples 0.7.0 → 0.7.0.1
raw patch · 3 files changed
+13/−13 lines, 3 files
Files
- src/session.lhs +5/−5
- src/widgets.lhs +7/−7
- yesod-examples.cabal +1/−1
src/session.lhs view
@@ -11,11 +11,11 @@ > getRoot = do > sess <- getSession > hamletToRepHtml [$hamlet|-> %form!method=post-> %input!type=text!name=key-> %input!type=text!name=val-> %input!type=submit-> %h1 $show.sess$+> <form method=post+> <input type=text name=key+> <input type=text name=val+> <input type=submit+> <h1>#{show sess} > |] > > postRoot :: Handler ()
src/widgets.lhs view
@@ -31,14 +31,14 @@ > addScriptRemote "http://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.min.js" > addScript $ StaticR $ StaticRoute ["script.js"] [] > addHamlet [$hamlet|-> %h1#$i$ Welcome to my first widget!!!-> %p-> %a!href=@RootR@ Recursive link.-> %p-> %a!href=@FormR@ Check out the form.-> %p.noscript Your script did not load. :(+> <h1 ##{i}>Welcome to my first widget!!!+> <p+> <a href=@RootR@>Recursive link.+> <p+> <a href=@FormR@>Check out the form.+> <p .noscript>Your script did not load. :( > |]-> addHtmlHead [$hamlet|%meta!keywords=haskell|]+> addHtmlHead [$hamlet|<meta keywords=haskell|] > > handleFormR = do > (res, form, enctype, nonce) <- runFormPost $ fieldsToTable $ (,,,,,,,,)
yesod-examples.cabal view
@@ -1,5 +1,5 @@ Name: yesod-examples-Version: 0.7.0+Version: 0.7.0.1 Synopsis: Example programs using the Yesod Web Framework. Description: These are the same examples and tutorials found on the documentation site. Homepage: http://docs.yesodweb.com/