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