diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs index ede3d14..3f372f6 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -21,6 +21,7 @@ data Search = Search { mkYesod "Search" [parseRoutes| / HomeR GET /bundle.js BundleR GET +/style.css StyleR GET /bangs.json BangsR GET /submitBang SubmitR POST /search.xml OpenSearchR GET @@ -35,6 +36,9 @@ getHomeR = sendFile typeHtml "index.html" getBundleR :: Handler () getBundleR = sendFile typeJavascript "bundle.js" +getStyleR :: Handler () +getStyleR = sendFile typeCss "style.css" + getBangsR :: Handler TypedContent getBangsR = do bangsAccessor <- lookupHeader "accept-encoding" >>= \case |