    "-"
    (concat
     [(name edge-label)]
-    (sort (map name (keys index)))
+    (sort (map name (map first index)))
     ["vertex-centric-index"])))
 
 (defn janus-get-property-key


(defn property-index-name
  [index]
  (string/join "-" (concat (map name (keys index)) ["index"])))

(defn edge-index-name
  [edge-label index]

    {:end String}
    {:genotype String}
    {:phenotype String}
    [[:chromosome String] [:start String] [:end String]]
    [[:referenceName String] [:start String] [:end String]]]
   :edges
   [{:variantIn {:featureId String}}
    {:expressionLevel {:level Double}}
