From 4ab560e0c0cf8b18b026db8cec9f4f8c64413c8d Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 15 Dec 2014 11:45:42 +0200
Subject: [PATCH] Snapshot page fixes

---
 Handler/StackageHome.hs        |  5 +++--
 templates/stackage-home.hamlet | 18 +-----------------
 2 files changed, 4 insertions(+), 19 deletions(-)

diff --git a/Handler/StackageHome.hs b/Handler/StackageHome.hs
index 1286581..d3bdb3d 100644
--- a/Handler/StackageHome.hs
+++ b/Handler/StackageHome.hs
@@ -39,6 +39,7 @@ getStackageHomeR slug = do
                 return
                     ( u E.^. UploadedName
                     , m E.^. MetadataSynopsis
+                    , E.max_ (p E.^. PackageVersion)
                     , E.max_ $ E.case_
                         [ ( p E.^. PackageHasHaddocks
                           , p E.^. PackageVersion
@@ -46,9 +47,9 @@ getStackageHomeR slug = do
                         ]
                         (E.val (Version ""))
                     )
-            let packages = flip map packages' $ \(name, syn, forceNotNull -> mversion) ->
+            let packages = flip map packages' $ \(name, syn, latestVersion, forceNotNull -> mversion) ->
                     ( E.unValue name
-                    , mversion
+                    , fmap unVersion $ E.unValue latestVersion
                     , strip $ E.unValue syn
                     , (<$> mversion) $ \version -> HaddockR slug $ return $ concat
                         [ toPathPiece $ E.unValue name
diff --git a/templates/stackage-home.hamlet b/templates/stackage-home.hamlet
index 16ed74b..6e66549 100644
--- a/templates/stackage-home.hamlet
+++ b/templates/stackage-home.hamlet
@@ -9,11 +9,6 @@ $newline never
            <span>
                <a href=@{SnapshotR slug StackageCabalConfigR}>
                    \cabal.config
-    $if isOwner
-        <p>
-            You are the owner of this snapshot. You can #
-            <a href=@{UploadHaddockR $ toPathPiece slug}>upload haddocks#
-            .
     <h3>
         Setup guide #
             <small>
@@ -25,7 +20,7 @@ $newline never
           <span class="accordion-toggle" data-parent="#accordion#{base + 0}" href="#collapse1">
             <span .number>1
             Download the #
-            <a href=@{SnapshotR slug StackageCabalConfigR}>
+            <a href=@{SnapshotR slug StackageCabalConfigR}?download=true>
               \cabal.config
             \ into your project or sandbox root directory
 
@@ -40,17 +35,6 @@ $newline never
             <span .number>3
             <code>cabal install
 
-    <p>
-       Alternatively, to exclusively use only packages that are in #
-       Stackage, you can set your #
-       <code>remote-repo
-       \ in your Cabal #
-       <code>config
-       \ file to:
-    <pre>
-        <span class="keyword">remote-repo</span>: stackage-#{slug}:
-        <span class="url">@{SnapshotR slug StackageHomeR}
-
     <h3>
         Packages