From 5a13317efdaa2a8594a138b07ddd45eab40a8322 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 19 Jan 2020 16:30:01 +0100
Subject: Return the css at /css/main.css instead of inlined

---
 server/src/Main.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'server/src/Main.hs')

diff --git a/server/src/Main.hs b/server/src/Main.hs
index 324557e..999f973 100644
--- a/server/src/Main.hs
+++ b/server/src/Main.hs
@@ -14,6 +14,7 @@ import qualified Controller.Income             as Income
 import qualified Controller.Index              as Index
 import qualified Controller.Payment            as Payment
 import qualified Controller.User               as User
+import qualified Design.Global                 as Design
 import           Job.Daemon                    (runDaemons)
 
 main :: IO ()
@@ -28,6 +29,10 @@ main = do
     S.middleware . staticPolicy $
       noDots >-> addBase "public"
 
+    S.get "/css/main.css" $ do
+      S.setHeader "Content-Type" "text/css"
+      S.text Design.globalDesign
+
     S.post "/api/signIn" $
       S.jsonData >>= Index.signIn conf
 
-- 
cgit v1.2.3