Skip to content

Commit

Permalink
Change sitemap
Browse files Browse the repository at this point in the history
  • Loading branch information
ciukstar committed Jun 23, 2024
1 parent c31a3aa commit 26be4eb
Show file tree
Hide file tree
Showing 4 changed files with 6 additions and 17 deletions.
2 changes: 1 addition & 1 deletion messages/ru.msg
Original file line number Diff line number Diff line change
Expand Up @@ -487,4 +487,4 @@ Doc020: Кроме того, счет-фактуру можно скачать

Doc021 href: <a href=#{href} target=_blank>Репозиторий проекта</a> на GitHub.

Doc022 href@Text: Обратите внимание, что приложение, работающее в данный момент, является демонстрационным. Любые действия разрешены и поощряются. <a href=#{href} target=_blank>Сообщайте об ошибках</a> на GitHub.
Doc022 href: Обратите внимание, что приложение, работающее в данный момент, является демонстрационным. Любые действия разрешены и поощряются. <a href=#{href} target=_blank>Сообщайте об ошибках</a> на GitHub.
11 changes: 0 additions & 11 deletions src/Handler/Common.hs
Original file line number Diff line number Diff line change
Expand Up @@ -67,20 +67,9 @@ getWebAppManifestR = do

getSitemapR :: Handler TypedContent
getSitemapR = sitemap $ do
yield $ SitemapUrl FaviconR Nothing (Just Monthly) (Just 0.5)
yield $ SitemapUrl (ResourcesR DocsR) Nothing (Just Monthly) (Just 1.0)
yield $ SitemapUrl HomeR Nothing (Just Monthly) (Just 1.0)
yield $ SitemapUrl ServicesR Nothing (Just Monthly) (Just 0.9)
yield $ SitemapUrl BookOffersR Nothing (Just Monthly) (Just 0.8)

today <- utctDay <$> liftIO getCurrentTime
let (y,m,_) = toGregorian today
month = YearMonth y m

yield $ SitemapUrl (BookingsCalendarR month) Nothing (Just Monthly) (Just 0.7)
yield $ SitemapUrl AboutUsR Nothing (Just Monthly) (Just 0.6)
yield $ SitemapUrl ContactR Nothing (Just Monthly) (Just 0.6)


getPhotoPlaceholderR :: Handler TypedContent
getPhotoPlaceholderR = do
Expand Down
2 changes: 1 addition & 1 deletion stack.yaml
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,7 @@
# resolver: ./custom-snapshot.yaml
# resolver: https://example.com/snapshots/2018-01-01.yaml
resolver:
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/22/7.yaml
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/22/26.yaml

# User packages to be built.
# Various formats can be used as shown in the example below.
Expand Down
8 changes: 4 additions & 4 deletions stack.yaml.lock
Original file line number Diff line number Diff line change
Expand Up @@ -27,8 +27,8 @@ packages:
hackage: stripe-haskell-2.6.2@sha256:4ad015702e65b3219b9f2db10b8ae35873254a149f7b735c5d3e6250d7b641a1,1130
snapshots:
- completed:
sha256: 7b975b104cb3dbf0c297dfd01f936a4d2ee523241dd0b1ae960522b833fe3027
size: 714096
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/22/7.yaml
sha256: 8e7996960d864443a66eb4105338bbdd6830377b9f6f99cd5527ef73c10c01e7
size: 719128
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/22/26.yaml
original:
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/22/7.yaml
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/22/26.yaml

0 comments on commit 26be4eb

Please sign in to comment.