webyesod: fix stylesheet content type

2010-07-05 19:32:15 +00:00 · 2010-07-05 19:32:15 +00:00 · f3d9c44f81
commit f3d9c44f81
parent 67b04725c9
1 changed files with 1 additions and 3 deletions
--- a/Hledger/Cli/Commands/Web.hs
+++ b/Hledger/Cli/Commands/Web.hs
@ -91,9 +91,7 @@ getStyleCss :: Handler HledgerWebApp ()
 getStyleCss = do
    app <- getYesod
    let dir = appWebdir app
-    s <- liftIO $ readFile $ dir </> "style.css"
-    header "Content-Type" "text/css"
-    return $ RepPlain $ toContent s
+    sendFile "text/css" $ dir </> "style.css"

 getJournalPage :: Handler HledgerWebApp RepHtml
 getJournalPage = withLatestJournalRender (const showTransactions)