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
_______________________________________________
Dev mailing list
Dev@lists.snowdrift.coop
https://lists.snowdrift.coop/mailman/listinfo/dev
