@@ -181,10 +181,9 @@ data TweetMapping = TweetMapping deriving (Eq, Show)
181181:{
182182instance ToJSON TweetMapping where
183183 toJSON TweetMapping =
184− object ["tweet" .=
185− object ["properties" .=
186− object ["location" .=
187− object ["type" .= ("geo_point" :: Text)]]]]
184+ object ["properties" .=
185+ object ["location" .=
186+ object ["type" .= ("geo_point" :: Text)]]]
188187:}
189188
190189resp <- withBH' $ putMapping testIndex testMapping TweetMapping