@@ -181,10 +181,9 @@ data TweetMapping = TweetMapping deriving (Eq, Show)
182instance ToJSON TweetMapping where
182instance ToJSON TweetMapping where
183 toJSON TweetMapping =
183 toJSON TweetMapping =
184− object ["tweet" .=
184+ object ["properties" .=
185− object ["properties" .=
185+ object ["location" .=
186− object ["location" .=
187− object ["type" .= ("geo_point" :: Text)]]]]
186+ object ["type" .= ("geo_point" :: Text)]]]
190resp <- withBH' $ putMapping testIndex testMapping TweetMapping
189resp <- withBH' $ putMapping testIndex testMapping TweetMapping