From f3d9c44f81a0516aa11f86eb4d202841be295209 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 5 Jul 2010 19:32:15 +0000
Subject: [PATCH] webyesod: fix stylesheet content type

---
 Hledger/Cli/Commands/Web.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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)