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

   "-"
   (concat
    [(name edge-label)]
    (sort (map name (keys index)))
    ["vertex-centric-index"])))

(defn janus-get-property-key

    {: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}}
