diff --git a/Handler/Package.hs b/Handler/Package.hs index 5f5f392..dbe6ae8 100644 --- a/Handler/Package.hs +++ b/Handler/Package.hs @@ -81,7 +81,8 @@ packagePage mversion pname = do [] -> return Nothing let ixInFavourOf = zip [0::Int ..] inFavourOf - displayedVersion = maybe (packageLatest package) (toPathPiece . snd) mversion + mdisplayedVersion = toPathPiece . snd <$> mversion + latestVersion = packageLatest package let homepage = case T.strip (packageHomepage package) of x | null x -> Nothing diff --git a/templates/package.hamlet b/templates/package.hamlet index 5102c3b..7e2f8b0 100644 --- a/templates/package.hamlet +++ b/templates/package.hamlet @@ -24,23 +24,25 @@ $newline never #{url} + $forall displayedVersion <- mdisplayedVersion + + -
Version on this page: + + #{displayedVersion} $forall li <- latests
#{prettyNameShort (liSnapName li)} - \: # + : - #{liVersion li} + #{liVersion li}
- - Hackage - \: # + Latest on Hackage: - - #{displayedVersion} # + + #{latestVersion} $if null latests