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

webyesod: fix warnings

Browse Source
This commit is contained in:
Simon Michael 2010-07-06 16:58:50 +00:00
parent ea5f7979b2
commit fcd88ed178
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Hledger/Cli/Commands/WebYesod.hs
View File

@ -6,9 +6,7 @@ A web-based UI.
module Hledger.Cli.Commands.WebYesod module Hledger.Cli.Commands.WebYesod
where where
import Control.Concurrent -- (forkIO) import Control.Concurrent -- (forkIO)
import qualified Data.ByteString.Char8 as B
import Data.Either import Data.Either
import qualified Network.Wai (Request(pathInfo))
import System.FilePath ((</>)) import System.FilePath ((</>))
import System.IO.Storage (withStore, putValue, getValue) import System.IO.Storage (withStore, putValue, getValue)
import Text.Hamlet import Text.Hamlet
@ -125,7 +123,6 @@ withLatestJournalRender reportfn = do
-- render the standard template -- render the standard template
req <- getRequest req <- getRequest
msg <- getMessage msg <- getMessage
--return $ RepHtml $ toContent $ renderHamlet id $ template req msg as ps "hledger" s
Just here <- getRoute Just here <- getRoute
hamletToRepHtml $ template here req msg as ps "hledger" s hamletToRepHtml $ template here req msg as ps "hledger" s
@ -161,7 +158,7 @@ navbar here req as ps = [$hamlet|
%a#helplink!href=$string.manualurl$ help %a#helplink!href=$string.manualurl$ help
|] |]
where navlinks' = navlinks req as ps where navlinks' = navlinks req as ps
searchform' = searchform here req as ps searchform' = searchform here as ps
navlinks :: Request -> String -> String -> Hamlet HledgerWebAppRoutes navlinks :: Request -> String -> String -> Hamlet HledgerWebAppRoutes
navlinks _ as ps = [$hamlet| navlinks _ as ps = [$hamlet|
@ -177,9 +174,8 @@ navlinks _ as ps = [$hamlet|
navlink s dest = [$hamlet|%a.navlink!href=@?u@ $string.s$|] navlink s dest = [$hamlet|%a.navlink!href=@?u@ $string.s$|]
where u = (dest, [("a", as), ("p", ps)]) where u = (dest, [("a", as), ("p", ps)])
searchform :: HledgerWebAppRoutes searchform :: HledgerWebAppRoutes -> String -> String -> Hamlet HledgerWebAppRoutes
-> Request -> String -> String -> Hamlet HledgerWebAppRoutes searchform here a p = [$hamlet|
searchform here req a p = [$hamlet|
%form#searchform!action=$string.action$ %form#searchform!action=$string.action$
search for: $ search for: $
%input!name=a!size=20!value=$string.a$ %input!name=a!size=20!value=$string.a$