On Tue, May 17, 2016 at 09:12:30PM +0300, [email protected] wrote: > From: fr33domlover <[email protected]> > > --- > 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. -- Peter Harpending
signature.asc
Description: Digital signature
_______________________________________________ Dev mailing list [email protected] https://lists.snowdrift.coop/mailman/listinfo/dev
