diff --git a/Handler/Package.hs b/Handler/Package.hs index 1661caf..ee6446f 100644 --- a/Handler/Package.hs +++ b/Handler/Package.hs @@ -53,7 +53,7 @@ getPackageR pn = do <*> (map entityVal <$> selectList [ModuleDocs ==. docsid] [Asc ModuleName]) - return ( packages + return ( zip [0..] packages , downloads , recentDownloads , nLikes diff --git a/templates/package.hamlet b/templates/package.hamlet index 36ee319..a69e65a 100644 --- a/templates/package.hamlet +++ b/templates/package.hamlet @@ -6,8 +6,16 @@ $newline never #{pn} # #{metadataVersion metadata} # - - (current) + $forall (i,(version, title, slug, hasHaddocks)) <- packages + $if i /= 0 + , # + #{fromMaybe title $ stripSuffix ", exclusive" title} + $if hasHaddocks + \ ( + + #{version} + ) +
@@ -35,16 +43,6 @@ $newline never #{nLikes} \ likes # - $if downloads /= 0 - - $if downloads /= recentDownloads - #{formatNum downloads} downloads # - (#{formatNum recentDownloads} in the last 30 days) - $else - #{formatNum downloads} total downloads - $else - - No downloads yet