diff --git a/Hledger/Cli/Commands/Web.hs b/Hledger/Cli/Commands/Web.hs index ace4cd206..c1d9f343c 100644 --- 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)