slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

web: fix error message being a bit too persistent

Browse Source 
visiting ?add=1 afresh was still showing the previous visit's error
This commit is contained in:
Simon Michael 2015-02-23 23:55:28 +00:00
parent abe47e81c2
commit d801eb1ab7
3 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hledger-web/Foundation.hs
View File

@ -105,6 +105,7 @@ instance Yesod App where
defaultLayout widget = do defaultLayout widget = do
master <- getYesod master <- getYesod
lastmsg <- getMessage
vd@VD{..} <- getViewData vd@VD{..} <- getViewData
-- We break up the default layout into two components: -- We break up the default layout into two components:

2
hledger-web/templates/default-layout-wrapper.hamlet
View File

@ -100,7 +100,7 @@ $newline never
<button type="button" .close data-dismiss="modal" aria-hidden="true">&times; <button type="button" .close data-dismiss="modal" aria-hidden="true">&times;
<h3 .modal-title #addLabel>Add a transaction <h3 .modal-title #addLabel>Add a transaction
<div .modal-body> <div .modal-body>
$maybe m <- msg $maybe m <- lastmsg
$if isPrefixOf "Errors" (renderHtml m) $if isPrefixOf "Errors" (renderHtml m)
<div #message>#{m} <div #message>#{m}
^{addform staticRootUrl vd} ^{addform staticRootUrl vd}

2
hledger-web/templates/default-layout.hamlet
View File

@ -1,4 +1,4 @@
$maybe m <- msg $maybe m <- lastmsg
$if not $ isPrefixOf "Errors" (renderHtml m) $if not $ isPrefixOf "Errors" (renderHtml m)
<div #message>#{m} <div #message>#{m}
^{widget} ^{widget}