From: Michael Andreen <harv@ruin.nu>
Date: Sat, 11 Dec 2004 16:17:07 +0000 (+0000)
Subject: Stripping \ from the keyword
X-Git-Url: https://ruin.nu/git/?p=yawbih.git;a=commitdiff_plain;h=733b60938d6d41ce0fccb5833b1caa7f1046b9d0

Stripping \ from the keyword
---

diff --git a/Main.hs b/Main.hs
index 7e96e65..c8d5524 100644
--- a/Main.hs
+++ b/Main.hs
@@ -15,7 +15,7 @@ testDB = createPGB "wave" "wiki" "wiki" "12wiki34db"
 
 main = do 
 	db <- testDB
-	runWithHook [] (\(key:act) -> showPage db key) $ showPage db "MainPage"
+	runWithHook [] (\(key:act) -> showPage db (filter (/= '\\') key)) $ showPage db "MainPage"
 
 ps a = standardQuery "Hello" a