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.

-- 
Peter Harpending

Attachment: signature.asc
Description: Digital signature

_______________________________________________
Dev mailing list
Dev@lists.snowdrift.coop
https://lists.snowdrift.coop/mailman/listinfo/dev

Reply via email to