vector2 name1 name2 v1 v2 = toJSON $ zipWith val (G.toList v1) (G.toList v2) where
    val i j = object
        [ toKey name1 .= i
        , toKey name2 .= j
        ]

#if MIN_VERSION_aeson(2,0,0)
vector2 name1 name2 v1 v2 = toJSON $ zipWith val (G.toList v1) (G.toList v2) where
    val i j = object
        [ toKey name1 .= i
        , toKey name2 .= j
        ]

#if MIN_VERSION_aeson(2,0,0)
vector2 name1 name2 v1 v2 = toJSON $ zipWith val (G.toList v1) (G.toList v2) where
    val i j = object
        [ toKey name1 .= i
        , toKey name2 .= j
        ]

#if MIN_VERSION_aeson(2,0,0)