scores :: Connection -> [Text] -> IO [(Text, Score)]
scores conn xs = zip xs <$> forConcurrently xs (\x -> do
  r <- query conn (Tasteometer.compare (user target) (user x))
  return (fromMaybe "0" (preview score r)))
scores :: Connection -> [Text] -> IO [(Text, Score)]
scores conn xs = zip xs <$> forConcurrently xs (\x -> do
  r <- query conn (Tasteometer.compare (user target) (user x))
  return (fromMaybe "0" (preview score r)))
scores conn xs = zip xs <$> forConcurrently xs (\x -> do
  r <- query conn (Tasteometer.compare (user target) (user x))
  return (fromMaybe "0" (preview score r)))