diff options
| author | Joris | 2020-01-19 16:30:01 +0100 |
|---|---|---|
| committer | Joris | 2020-01-19 16:30:01 +0100 |
| commit | 5a13317efdaa2a8594a138b07ddd45eab40a8322 (patch) | |
| tree | 56c715e2bf57bbae5c6321488d2504f5708dbfe5 /server/src/Main.hs | |
| parent | 209008f155068835077719eeec942a9b979b3a04 (diff) | |
| download | budget-5a13317efdaa2a8594a138b07ddd45eab40a8322.tar.gz budget-5a13317efdaa2a8594a138b07ddd45eab40a8322.tar.bz2 budget-5a13317efdaa2a8594a138b07ddd45eab40a8322.zip | |
Return the css at /css/main.css instead of inlined
Diffstat (limited to 'server/src/Main.hs')
| -rw-r--r-- | server/src/Main.hs | 5 |
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 |