diff --git a/Handler/StackageHome.hs b/Handler/StackageHome.hs index 3a19caa..92fd432 100644 --- a/Handler/StackageHome.hs +++ b/Handler/StackageHome.hs @@ -11,6 +11,9 @@ getStackageHomeR ident = do return (stackage, user) hasBundle <- storeExists $ SnapshotBundle ident + let isInclusiveOrExclusive = + "inclusive" `isSuffixOf` stackageTitle stackage || + "exclusive" `isSuffixOf` stackageTitle stackage defaultLayout $ do setTitle $ toHtml $ stackageTitle stackage $(widgetFile "stackage-home") diff --git a/templates/homepage.hamlet b/templates/homepage.hamlet index c40b175..f9879ac 100644 --- a/templates/homepage.hamlet +++ b/templates/homepage.hamlet @@ -8,6 +8,8 @@
+ What's the difference between inclusive and exclusive snapshots?
For prerequisites and compiler installation instructions, please see the wiki page Preparing your system to use Stackage. diff --git a/templates/stackage-home.hamlet b/templates/stackage-home.hamlet index 5bfdff4..f5bad40 100644 --- a/templates/stackage-home.hamlet +++ b/templates/stackage-home.hamlet @@ -16,6 +16,9 @@ $newline never
remote-repo: stackage:@{StackageHomeR ident}
+ $if isInclusiveOrExclusive
+
+ What's the difference between inclusive and exclusive snapshots?
Setup guide #