simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-20 02:37:12 +03:00
Code Issues Projects Releases Wiki Activity

webyesod: fix stylesheet content type

Browse Source
This commit is contained in:
Simon Michael 2010-07-05 19:32:15 +00:00
parent 67b04725c9
commit f3d9c44f81
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Hledger/Cli/Commands/Web.hs
View File

@ -91,9 +91,7 @@ getStyleCss :: Handler HledgerWebApp ()
getStyleCss = do getStyleCss = do
app <- getYesod app <- getYesod
let dir = appWebdir app let dir = appWebdir app
s <- liftIO $ readFile $ dir </> "style.css" sendFile "text/css" $ dir </> "style.css"
header "Content-Type" "text/css"
return $ RepPlain $ toContent s
getJournalPage :: Handler HledgerWebApp RepHtml getJournalPage :: Handler HledgerWebApp RepHtml
getJournalPage = withLatestJournalRender (const showTransactions) getJournalPage = withLatestJournalRender (const showTransactions)