fromAesonPathElement :: Aeson.JSONPathElement -> JSONPathElement
fromAesonPathElement e = case e of
  Aeson.Key k -> Key (Key.toText k)
  Aeson.Index n -> Index n
fromAesonPathElement :: Aeson.JSONPathElement -> JSONPathElement
fromAesonPathElement e = case e of
  Aeson.Key k -> Key (Key.toText k)
  Aeson.Index n -> Index n
fromAesonPathElement e = case e of
  Aeson.Key k -> Key (Key.toText k)
  Aeson.Index n -> Index n