diff options
| -rw-r--r-- | makefile | 1 | ||||
| -rw-r--r-- | src/Main.hs | 8 |
2 files changed, 6 insertions, 3 deletions
@@ -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 |