From 733b60938d6d41ce0fccb5833b1caa7f1046b9d0 Mon Sep 17 00:00:00 2001 From: Michael Andreen Date: Sat, 11 Dec 2004 16:17:07 +0000 Subject: [PATCH] Stripping \ from the keyword --- Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.2