diff options
| author | metamuffin <metamuffin@disroot.org> | 2023-07-26 14:37:18 +0200 |
|---|---|---|
| committer | metamuffin <metamuffin@disroot.org> | 2023-07-26 14:37:18 +0200 |
| commit | 0ae2d031aa2bf13f9e0ba90b945e79cd614cfd7e (patch) | |
| tree | 83e23a0ee95df15a0669c40d84fc1ffdf3c47c5d /src/Main.hs | |
| parent | 3ea46d86bc9a859b9bd1f065b12e0a276796e42f (diff) | |
| download | fastbangs-0ae2d031aa2bf13f9e0ba90b945e79cd614cfd7e.tar fastbangs-0ae2d031aa2bf13f9e0ba90b945e79cd614cfd7e.tar.bz2 fastbangs-0ae2d031aa2bf13f9e0ba90b945e79cd614cfd7e.tar.zst | |
add route for stylesheet
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 |