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

web: reset link did not work in all browsers

Browse Source
This commit is contained in:
Simon Michael 2009-07-09 14:59:05 +00:00
parent d9f7027216
commit 235797034c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Commands/Web.hs
View File

@ -87,7 +87,7 @@ searchform r a p' =
-- another way to get them -- another way to get them
-- a = fromMaybe "" $ queryValue "a" r -- a = fromMaybe "" $ queryValue "a" r
-- p = fromMaybe "" $ queryValue "p" r -- p = fromMaybe "" $ queryValue "p" r
u = dropWhile (=='/') $ rqUri r u = rqUri r
s = "20" s = "20"
resetlink | null a && null p' = noHtml resetlink | null a && null p' = noHtml
| otherwise = spaceHtml +++ anchor ! [href u] << stringToHtml "reset" | otherwise = spaceHtml +++ anchor ! [href u] << stringToHtml "reset"