diff options
| -rw-r--r-- | frontend/style.css | 2 | ||||
| -rw-r--r-- | src/Main.hs | 4 |
2 files changed, 6 insertions, 0 deletions
diff --git a/frontend/style.css b/frontend/style.css new file mode 100644 index 0000000..139597f --- /dev/null +++ b/frontend/style.css @@ -0,0 +1,2 @@ + + 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 |