Stripping \ from the keyword

[yawbih.git] / Main.hs

diff --git a/Main.hs b/Main.hs
index 7e96e65396299c5e75180e240256b2a6acc432ba..c8d5524c32af97a80f24876fc408de25e029f950 100644 (file)
--- 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