X-Git-Url: https://ruin.nu/git/?p=yawbih.git;a=blobdiff_plain;f=Main.hs;h=c8d5524c32af97a80f24876fc408de25e029f950;hp=7e96e65396299c5e75180e240256b2a6acc432ba;hb=733b60938d6d41ce0fccb5833b1caa7f1046b9d0;hpb=ab78d2448c6bb4078acfc33891e911a14c5f6445

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