diff --git a/README.md b/README.md index be3ca04..727b0d6 100644 --- a/README.md +++ b/README.md @@ -1,5 +1,4 @@ -stackage-server -=============== +# stackage-server  @@ -16,6 +15,13 @@ Build locally by passing the `dev` flag to it: $ 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: ``` shellsession diff --git a/src/Handler/Home.hs b/src/Handler/Home.hs index 27a381c..1a0ef52 100644 --- a/src/Handler/Home.hs +++ b/src/Handler/Home.hs @@ -35,8 +35,8 @@ getHomeR = track "Handler.Snapshots.getAllSnapshotsR" $ do let latestNightly = groupUp now' nightly latestLtsNameWithHoogle <- getLatestLtsNameWithHoogle latestLtsByGhc <- getLatestLtsByGhc - - mrecentBlog <- headMay <$> getPosts + let sixMonthsAgo = addUTCTime (-180 * nominalDay) now' + mrecentBlog <- headMay . filter (\p -> postTime p > sixMonthsAgo) <$> getPosts defaultLayout $ do setTitle "Stackage Server" diff --git a/stack.yaml b/stack.yaml index b23373d..5a36ff8 100644 --- a/stack.yaml +++ b/stack.yaml @@ -1,4 +1,4 @@ -resolver: lts-16.20 +resolver: lts-16.31 extra-deps: - barrier-0.1.1@sha256:2021f84c3aba67bb635d72825d3bc0371942444dc014bc307b875071e29eea98,3931 - hackage-security-0.6.0.1 diff --git a/templates/home.hamlet b/templates/home.hamlet index c273ab1..addd981 100644 --- a/templates/home.hamlet +++ b/templates/home.hamlet @@ -20,8 +20,8 @@
#{postTitle post}, #{dateDiff now' (utctDay $ postTime post)}