possible to list all keywords

[yawbih.git] / Wiki.hs

diff --git a/Wiki.hs b/Wiki.hs
index 231dda46217123dc1cee063d5dbc150a1c8f4f1f..a2b6548509f8282f73af4d2059216c4b91c23673 100644 (file)
--- 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