list <- selectReturnTuples db $ "SELECT id, timestamp, author, comment from fulltexts WHERE keyword = "++tov key
return $ map (\[id,date,author,comment] -> (id,date,author,comment)) list
list <- selectReturnTuples db $ "SELECT id, timestamp, author, comment from fulltexts WHERE keyword = "++tov key
return $ map (\[id,date,author,comment] -> (id,date,author,comment)) list