Return the css at /css/main.css instead of inlined

1 files changed, 5 insertions, 0 deletions

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