haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-28 11:50:24 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Snapshot page fixes

Browse Source
This commit is contained in:
Michael Snoyman 2014-12-15 11:45:42 +02:00
parent 246f114bcd
commit 4ab560e0c0
2 changed files with 4 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Handler/StackageHome.hs
View File

@ -39,6 +39,7 @@ getStackageHomeR slug = do
return return
( u E.^. UploadedName ( u E.^. UploadedName
, m E.^. MetadataSynopsis , m E.^. MetadataSynopsis
, E.max_ (p E.^. PackageVersion)
, E.max_ $ E.case_ , E.max_ $ E.case_
[ ( p E.^. PackageHasHaddocks [ ( p E.^. PackageHasHaddocks
, p E.^. PackageVersion , p E.^. PackageVersion
@ -46,9 +47,9 @@ getStackageHomeR slug = do
] ]
(E.val (Version "")) (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 ( E.unValue name
, mversion , fmap unVersion $ E.unValue latestVersion
, strip $ E.unValue syn , strip $ E.unValue syn
, (<$> mversion) $ \version -> HaddockR slug $ return $ concat , (<$> mversion) $ \version -> HaddockR slug $ return $ concat
[ toPathPiece $ E.unValue name [ toPathPiece $ E.unValue name

18
templates/stackage-home.hamlet
View File

@ -9,11 +9,6 @@ $newline never
<span> <span>
<a href=@{SnapshotR slug StackageCabalConfigR}> <a href=@{SnapshotR slug StackageCabalConfigR}>
\cabal.config \cabal.config
$if isOwner
<p>
You are the owner of this snapshot. You can #
<a href=@{UploadHaddockR $ toPathPiece slug}>upload haddocks#
.
<h3> <h3>
Setup guide # Setup guide #
<small> <small>
@ -25,7 +20,7 @@ $newline never
<span class="accordion-toggle" data-parent="#accordion#{base + 0}" href="#collapse1"> <span class="accordion-toggle" data-parent="#accordion#{base + 0}" href="#collapse1">
<span .number>1 <span .number>1
Download the # Download the #
<a href=@{SnapshotR slug StackageCabalConfigR}> <a href=@{SnapshotR slug StackageCabalConfigR}?download=true>
\cabal.config \cabal.config
\ into your project or sandbox root directory \ into your project or sandbox root directory
@ -40,17 +35,6 @@ $newline never
<span .number>3 <span .number>3
<code>cabal install <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> <h3>
Packages Packages