From 000a322561f0da39d351649da790521731640fad Mon Sep 17 00:00:00 2001
From: Lia Lenckowski <lialenck@protonmail.com>
Date: Tue, 25 Jul 2023 15:00:55 +0200
Subject: add routes, and make makefile less shit

---
 src/Main.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Main.hs b/src/Main.hs
index 54e6e20..5ab2322 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -20,6 +20,7 @@ data Search = Search {
 
 mkYesod "Search" [parseRoutes|
 /           HomeR GET
+/bundle.js  BundleR GET
 /bangs.json BangsR GET
 /submitBang SubmitR POST
 /search.xml OpenSearchR GET
@@ -28,8 +29,11 @@ mkYesod "Search" [parseRoutes|
 instance Yesod Search where
     makeSessionBackend _ = return Nothing
 
-getHomeR :: Handler String
-getHomeR = return "TODO"
+getHomeR :: Handler ()
+getHomeR = sendFile typeHtml "frontend/index.html"
+
+getBundleR :: Handler ()
+getBundleR = sendFile typeJavascript "frontend/bundle.js"
 
 getBangsR :: Handler TypedContent
 getBangsR = do
-- 
cgit v1.2.3-70-g09d2