From 0ae2d031aa2bf13f9e0ba90b945e79cd614cfd7e Mon Sep 17 00:00:00 2001
From: metamuffin <metamuffin@disroot.org>
Date: Wed, 26 Jul 2023 14:37:18 +0200
Subject: add route for stylesheet

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

(limited to 'src')

diff --git a/src/Main.hs b/src/Main.hs
index ede3d14..3f372f6 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -21,6 +21,7 @@ data Search = Search {
 mkYesod "Search" [parseRoutes|
 /           HomeR GET
 /bundle.js  BundleR GET
+/style.css  StyleR GET
 /bangs.json BangsR GET
 /submitBang SubmitR POST
 /search.xml OpenSearchR GET
@@ -35,6 +36,9 @@ getHomeR = sendFile typeHtml "index.html"
 getBundleR :: Handler ()
 getBundleR = sendFile typeJavascript "bundle.js"
 
+getStyleR :: Handler ()
+getStyleR = sendFile typeCss "style.css"
+
 getBangsR :: Handler TypedContent
 getBangsR = do
     bangsAccessor <- lookupHeader "accept-encoding" >>= \case
-- 
cgit v1.2.3-70-g09d2