From 0bd7fffaf7a8f8c04e94d8f92d0d66ac167e720e Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 12 Jan 2012 15:44:32 +0000
Subject: [PATCH] web: dodge a yesod-core regression breaking add form redirect
 (#53)

---
 hledger-web/Hledger/Web/Handlers.hs | 5 ++---
 hledger-web/hledger-web.cabal       | 2 +-
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/hledger-web/Hledger/Web/Handlers.hs b/hledger-web/Hledger/Web/Handlers.hs
index 936d2ab11..4e813ccb1 100644
--- a/hledger-web/Hledger/Web/Handlers.hs
+++ b/hledger-web/Hledger/Web/Handlers.hs
@@ -509,15 +509,14 @@ handleAdd = do
                  $forall e<-errs
                   #{e}<br>
                |]
-    getRegisterR
-
    Right t -> do
     let t' = txnTieKnot t -- XXX move into balanceTransaction
     liftIO $ do ensureJournalFile journalpath
                 appendToJournalFileOrStdout journalpath $ showTransaction t'
     -- setMessage $ toHtml $ (printf "Added transaction:\n%s" (show t') :: String)
     setMessage [$shamlet|<span>Added transaction:<small><pre>#{chomp $ show t'}</pre></small>|]
-    getRegisterR
+
+  redirectParams RedirectTemporary RegisterR [("add","1")]
 
 chomp :: String -> String
 chomp = reverse . dropWhile (`elem` "\r\n") . reverse
diff --git a/hledger-web/hledger-web.cabal b/hledger-web/hledger-web.cabal
index d376d9652..b2e0d277d 100644
--- a/hledger-web/hledger-web.cabal
+++ b/hledger-web/hledger-web.cabal
@@ -92,7 +92,7 @@ executable hledger-web
                  ,template-haskell >= 2.4 && < 2.7
 
                  ,yesod >= 0.9.2.1 && < 0.10
-                 ,yesod-core
+                 ,yesod-core >= 0.9.4.1 && < 0.10
                  ,yesod-form
                  ,yesod-json
                  ,yesod-static >= 0.3