haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-12 04:08:29 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Reflect the branch in the feed title/description

Browse Source
This commit is contained in:
Konstantin Zudov 2015-10-13 14:58:10 +03:00
parent 5c2e8ecf68
commit 5d1d97c46d
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
Handler/Feed.hs
View File

@ -10,22 +10,24 @@ import Stackage.Database
import Data.These
import Stackage.Snapshot.Diff
import qualified Data.HashMap.Strict as HashMap
import Text.Blaze (text)
getFeedR :: Handler TypedContent
getFeedR = mkFeed . snd =<< getSnapshots 20 0
getFeedR = mkFeed "" . snd =<< getSnapshots 20 0
getLtsFeedR :: Handler TypedContent
getLtsFeedR = mkFeed . snd =<< getLtsSnapshots 20 0
getLtsFeedR = mkFeed "LTS" . snd =<< getLtsSnapshots 20 0
getLtsMajorFeedR :: LtsMajor -> Handler TypedContent
getLtsMajorFeedR (LtsMajor v) = mkFeed . snd =<< getLtsMajorSnapshots v 20 0
getLtsMajorFeedR (LtsMajor v) =
mkFeed ("LTS-" <> tshow v) . snd =<< getLtsMajorSnapshots v 20 0
getNightlyFeedR :: Handler TypedContent
getNightlyFeedR = mkFeed . snd =<< getNightlySnapshots 20 0
getNightlyFeedR = mkFeed "Nightly" . snd =<< getNightlySnapshots 20 0
mkFeed :: [Entity Snapshot] -> Handler TypedContent
mkFeed [] = notFound
mkFeed snaps = do
mkFeed :: Text -> [Entity Snapshot] -> Handler TypedContent
mkFeed _ [] = notFound
mkFeed branch snaps = do
entries <- forM snaps $ \(Entity snapid snap) -> do
content <- getContent snapid snap
return FeedEntry
@ -39,11 +41,11 @@ mkFeed snaps = do
[] -> liftIO getCurrentTime
x:_ -> return $ feedEntryUpdated x
newsFeed Feed
{ feedTitle = "Recent Stackage snapshots"
{ feedTitle = "Recent Stackage " <> branch <> " snapshots"
, feedLinkSelf = FeedR
, feedLinkHome = HomeR
, feedAuthor = "Stackage Project"
, feedDescription = "Recent Stackage snapshots"
, feedDescription = text ("Recent Stackage " <> branch <> " snapshots")
, feedLanguage = "en"
, feedUpdated = updated
, feedEntries = entries