X-Git-Url: https://ruin.nu/git/?p=yawbih.git;a=blobdiff_plain;f=Wiki.hs;h=a2b6548509f8282f73af4d2059216c4b91c23673;hp=231dda46217123dc1cee063d5dbc150a1c8f4f1f;hb=64b58e5b75b4c8e95574fa9080166f5cf1079005;hpb=464842463236cab162bb4cffa8bebe8b42f3b3eb

diff --git a/Wiki.hs b/Wiki.hs
index 231dda4..a2b6548 100644
--- a/Wiki.hs
+++ b/Wiki.hs
@@ -196,7 +196,7 @@ instance Backend PGB where
 				return id
 
 	listKeys (PGB db) = do
-		list <- selectReturnTuples db $ "SELECT keyword FROM fulltexts ORDER BY lower(keyword)"
+		list <- selectReturnTuples db $ "SELECT keyword FROM fulltexts GROUP BY keyword ORDER BY lower(keyword)"
 		case list of
 			[[]] -> return []
 			_ -> mapM (\[key] -> return key) list