From 0774864877c4a8e87b375cf436f1e19787bea1ed Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 20 Mar 2014 12:08:52 +0200
Subject: [PATCH] Use pure in an example

---
 yesod-form/hello-forms.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/yesod-form/hello-forms.hs b/yesod-form/hello-forms.hs
index eb766abc..f5838217 100644
--- a/yesod-form/hello-forms.hs
+++ b/yesod-form/hello-forms.hs
@@ -23,7 +23,8 @@ mkYesod "HelloForms" [parseRoutes|
 /file FileR GET POST
 |]
 
-myForm = fixType $ runFormGet $ renderDivs $ pure (,,,,,,,,,)
+myForm = fixType $ runFormGet $ renderDivs $ pure (,,,,,,,,,,)
+    <*> pure "pure works!"
     <*> areq boolField "Bool field" Nothing
     <*> aopt boolField "Opt bool field" Nothing
     <*> areq textField "Text field" Nothing