{--
-- what removeDuplicateWines does is, for the first wine id (the head of the
-- list), we remove the relation:

removeRelationQuery :: Idx -> Cypher
removeRelationQuery wineId =
   T.pack (unwords ["MATCH (w:Wine)<-[r:RATES_WINE]-()",
                    "WHERE id(w) =", show wineId, "DELETE r"])

Actually, we don't need to do this if we remove all (wine)<-[:RATES_WINE]-(t)
relations in the database with:

neo4j$ match (:Wine)<-[r:RATES_WINE]-(:Taster) delete r

Deleted 119981 relationships, completed after 2288 ms.

This further means that we only have to work with the duplicates, not with
the entire wine-set.
--}

-- For the rest of the wine ids (the rest of the wine ids for a wine), we want 
-- to detach and delete those wines, because they are duplicates.

removeWinesQuery :: [Idx] -> Cypher
removeWinesQuery [] = ""
removeWinesQuery :: [Idx] -> Cypher
removeWinesQuery [] = ""
removeWinesQuery [] = ""