1
0
Fork 0
mirror of https://code.naskya.net/repos/ndqEd synced 2025-03-20 15:14:54 +09:00

Style: Replace yesod favicon with Vervis icon made by ikomi (thanks <3)

This commit is contained in:
fr33domlover 2022-07-12 14:08:37 +00:00
parent 0c490ae986
commit 86b35e9b56
7 changed files with 204 additions and 10 deletions
src/Vervis

View file

@ -1,6 +1,6 @@
{- This file is part of Vervis.
-
- Written in 2016, 2018, 2019 by fr33domlover <fr33domlover@riseup.net>.
- Written in 2016, 2018, 2019, 2022 by fr33domlover <fr33domlover@riseup.net>.
-
- Copying is an act of love. Please copy, reuse and share.
-
@ -760,7 +760,8 @@ instance YesodPaginate App where
instance YesodBreadcrumbs App where
breadcrumb route = return $ case route of
StaticR _ -> ("", Nothing)
FaviconR -> ("", Nothing)
FaviconSvgR -> ("", Nothing)
FaviconPngR -> ("", Nothing)
RobotsR -> ("", Nothing)
PublishR -> ("Publish", Just HomeR)

View file

@ -1,6 +1,6 @@
{- This file is part of Vervis.
-
- Written in 2016, 2019 by fr33domlover <fr33domlover@riseup.net>.
- Written in 2016, 2019, 2022 by fr33domlover <fr33domlover@riseup.net>.
-
- Copying is an act of love. Please copy, reuse and share.
-
@ -15,7 +15,8 @@
-- | Common handler functions.
module Vervis.Handler.Common
( getFaviconR
( getFaviconSvgR
, getFaviconPngR
, getRobotsR
)
where
@ -28,11 +29,17 @@ import Vervis.Foundation
-- These handlers embed files in the executable at compile time to avoid a
-- runtime dependency, and for efficiency.
getFaviconR :: Handler TypedContent
getFaviconR =
getFaviconSvgR :: Handler TypedContent
getFaviconSvgR =
return $
TypedContent "image/x-icon" $
toContent $(embedFile "config/favicon.ico")
TypedContent "image/svg+xml" $
toContent $(embedFile "config/favicon.svg")
getFaviconPngR :: Handler TypedContent
getFaviconPngR =
return $
TypedContent "image/png" $
toContent $(embedFile "config/favicon.png")
getRobotsR :: Handler TypedContent
getRobotsR =