diff options
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 |