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:
parent
0c490ae986
commit
86b35e9b56
7 changed files with 204 additions and 10 deletions
src/Vervis
|
@ -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)
|
||||
|
|
|
@ -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 =
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue