queryTable :: String -> ResultTable -> [(URI,Integer)]
queryTable s  = L.sortBy (\(_,v1) (_,v2) -> compare v2 v1) . concat . maybeToList . M.lookup s
queryTable :: String -> ResultTable -> [(URI,Integer)]
queryTable s  = L.sortBy (\(_,v1) (_,v2) -> compare v2 v1) . concat . maybeToList . M.lookup s
queryTable s  = L.sortBy (\(_,v1) (_,v2) -> compare v2 v1) . concat . maybeToList . M.lookup s