From 000a322561f0da39d351649da790521731640fad Mon Sep 17 00:00:00 2001 From: Lia Lenckowski Date: Tue, 25 Jul 2023 15:00:55 +0200 Subject: add routes, and make makefile less shit --- makefile | 1 - src/Main.hs | 8 ++++++-- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/makefile b/makefile index 003ee5e..b59e928 100644 --- a/makefile +++ b/makefile @@ -1,4 +1,3 @@ - ESFLAGS = --target=esnext --sourcemap --format=esm all: frontend/bundle.js 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