objectTable :: BaseType a => Map Text (Value -> Parser (GeometryObject a))
objectTable = Map.fromList
  [ ( _point, fmap GeometryPoint . parseJSON)
  , ( _multiPoint, fmap GeometryMultiPoint . parseJSON)
  , ( _lineString, fmap GeometryLineString . parseJSON)
  , ( _polygon, fmap GeometryPolygon . parseJSON)
  , ( _multiLineString, fmap GeometryMultiLineString . parseJSON)
  , ( _multiPolygon, fmap GeometryMultiPolygon . parseJSON)
  , ( _geometryCollection, parseGeometryCollection)
  ]
objectTable :: BaseType a => Map Text (Value -> Parser (GeometryObject a))
objectTable = Map.fromList
  [ ( _point, fmap GeometryPoint . parseJSON)
  , ( _multiPoint, fmap GeometryMultiPoint . parseJSON)
  , ( _lineString, fmap GeometryLineString . parseJSON)
  , ( _polygon, fmap GeometryPolygon . parseJSON)
  , ( _multiLineString, fmap GeometryMultiLineString . parseJSON)
  , ( _multiPolygon, fmap GeometryMultiPolygon . parseJSON)
  , ( _geometryCollection, parseGeometryCollection)
  ]
objectTable = Map.fromList
  [ ( _point, fmap GeometryPoint . parseJSON)
  , ( _multiPoint, fmap GeometryMultiPoint . parseJSON)
  , ( _lineString, fmap GeometryLineString . parseJSON)
  , ( _polygon, fmap GeometryPolygon . parseJSON)
  , ( _multiLineString, fmap GeometryMultiLineString . parseJSON)
  , ( _multiPolygon, fmap GeometryMultiPolygon . parseJSON)
  , ( _geometryCollection, parseGeometryCollection)
  ]