On Tue, May 17, 2016 at 12:25:08PM -0600, Peter Harpending wrote: > On Tue, May 17, 2016 at 09:12:30PM +0300, fr33domlo...@riseup.net wrote: > > From: fr33domlover <fr33domlo...@rel4tion.org> > > > > --- > > website/Snowdrift.cabal | 1 + > > website/config/routes | 1 + > > website/src/Handler.hs | 4 ++++ > > 3 files changed, 6 insertions(+) > > > > diff --git a/website/Snowdrift.cabal b/website/Snowdrift.cabal > > index 5cf461c..0994000 100644 > > --- a/website/Snowdrift.cabal > > +++ b/website/Snowdrift.cabal > > @@ -61,6 +61,7 @@ library > > MultiParamTypeClasses > > GeneralizedNewtypeDeriving > > RecordWildCards > > + ViewPatterns > > > > -- build-depends {{{2 > > build-depends: > > diff --git a/website/config/routes b/website/config/routes > > index e2f9d0d..510423c 100644 > > --- a/website/config/routes > > +++ b/website/config/routes > > @@ -20,3 +20,4 @@ > > /merchandise MerchandiseR GET > > > > /p/snowdrift SnowdriftProjectR GET > > +/p/snowdrift/w/#Text SnowdriftWikiSearchR GET > > diff --git a/website/src/Handler.hs b/website/src/Handler.hs > > index 9506a50..d1c3f1d 100644 > > --- a/website/src/Handler.hs > > +++ b/website/src/Handler.hs > > @@ -72,3 +72,7 @@ getMerchandiseR = $(widget "page/merchandise" > > "getMerchandiseR") > > -- For MVP, there is one, hard-coded project: Snowdrift > > getSnowdriftProjectR :: Handler Html > > getSnowdriftProjectR = $(widget "page/snowdrift-project" "Snowdrift.coop > > Project") > > + > > +getSnowdriftWikiSearchR :: Text -> Handler Html > > +getSnowdriftWikiSearchR slug = > > + redirect $ "https://wiki.snowdrift.coop/_search?patterns=" <> slug > > -- > > 1.9.1 > > I don't have colorized diffs in my email client, so take my input with a grain > of salt. That said, it looks fine, and this is a good feature to add. My only > question is: why do we need ViewPatterns? I'm not necessarily opposed to it, > I'm > just curious.
The default scaffolding uses them. I removed them as "unused" when I set up the new scaffolded code. It was a bit hasty. :)
signature.asc
Description: Digital signature
_______________________________________________ Dev mailing list Dev@lists.snowdrift.coop https://lists.snowdrift.coop/mailman/listinfo/dev