diff options
| author | Lia Lenckowski <lialenck@protonmail.com> | 2023-07-25 15:00:55 +0200 |
|---|---|---|
| committer | Lia Lenckowski <lialenck@protonmail.com> | 2023-07-25 15:00:55 +0200 |
| commit | 000a322561f0da39d351649da790521731640fad (patch) | |
| tree | be83506485575000cebeaac49fe0aac943d70c6a /src/Main.hs | |
| parent | 907406f857aa5e1437116352bcc00d2e1a36727e (diff) | |
| download | fastbangs-000a322561f0da39d351649da790521731640fad.tar fastbangs-000a322561f0da39d351649da790521731640fad.tar.bz2 fastbangs-000a322561f0da39d351649da790521731640fad.tar.zst | |
add routes, and make makefile less shit
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 8 |
1 files changed, 6 insertions, 2 deletions
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 |