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

Merge pull request #307 from juhp/master

Browse Source 
hide News if no recent blog posts
This commit is contained in:
Michael Snoyman 2021-03-26 10:30:25 +03:00 committed by GitHub
commit 37eb5f3da6
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
README.md
View File

@ -1,5 +1,4 @@
stackage-server # stackage-server
===============
![Runtime image](https://github.com/fpco/stackage-server/workflows/Runtime%20image/badge.svg) ![Runtime image](https://github.com/fpco/stackage-server/workflows/Runtime%20image/badge.svg)
@ -16,6 +15,13 @@ Build locally by passing the `dev` flag to it:
$ stack build . --flag stackage-server:dev $ stack build . --flag stackage-server:dev
``` ```
## Simple testing with sqlite:
To test the UI without real data, just run:
```
$ yesod devel
```
## Testing with postgresql
Now, initially you need to run the cron job to create and populate the database: Now, initially you need to run the cron job to create and populate the database:
``` shellsession ``` shellsession

4
src/Handler/Home.hs
View File

@ -35,8 +35,8 @@ getHomeR = track "Handler.Snapshots.getAllSnapshotsR" $ do
let latestNightly = groupUp now' nightly let latestNightly = groupUp now' nightly
latestLtsNameWithHoogle <- getLatestLtsNameWithHoogle latestLtsNameWithHoogle <- getLatestLtsNameWithHoogle
latestLtsByGhc <- getLatestLtsByGhc latestLtsByGhc <- getLatestLtsByGhc
let sixMonthsAgo = addUTCTime (-180 * nominalDay) now'
mrecentBlog <- headMay <$> getPosts mrecentBlog <- headMay . filter (\p -> postTime p > sixMonthsAgo) <$> getPosts
defaultLayout $ do defaultLayout $ do
setTitle "Stackage Server" setTitle "Stackage Server"

2
stack.yaml
View File

@ -1,4 +1,4 @@
resolver: lts-16.20 resolver: lts-16.31
extra-deps: extra-deps:
- barrier-0.1.1@sha256:2021f84c3aba67bb635d72825d3bc0371942444dc014bc307b875071e29eea98,3931 - barrier-0.1.1@sha256:2021f84c3aba67bb635d72825d3bc0371942444dc014bc307b875071e29eea98,3931
- hackage-security-0.6.0.1 - hackage-security-0.6.0.1

4
templates/home.hamlet
View File

@ -20,8 +20,8 @@
<li>Stackage is a community project: <a href="https://github.com/fpco/stackage/blob/master/MAINTAINERS.md#adding-a-package"><b>how to add packages to Stackage</b></a> <li>Stackage is a community project: <a href="https://github.com/fpco/stackage/blob/master/MAINTAINERS.md#adding-a-package"><b>how to add packages to Stackage</b></a>
<li><a href="https://haskellstack.org">stack</a> makes using Stackage easy <li><a href="https://haskellstack.org">stack</a> makes using Stackage easy
<div .span6> <div .span6>
<h3>News</h3> $maybe post <- mrecentBlog
$maybe post <- mrecentBlog <h3>News</h3>
<p> <p>
<a href=@{BlogPostR (postYear post) (postMonth post) (postSlug post)}>#{postTitle post}</a>, <a href=@{BlogPostR (postYear post) (postMonth post) (postSlug post)}>#{postTitle post}</a>,
<abbr title=#{show $ postTime post}>#{dateDiff now' (utctDay $ postTime post)}</abbr> <abbr title=#{show $ postTime post}>#{dateDiff now' (utctDay $ postTime post)}</abbr>