git.iko.soy/typeable/bloodhound
on master help sign in
Fix an example.
288d0cbMikhail Glushenkov
README.md+3−4
@@ -181,10 +181,9 @@ data TweetMapping = TweetMapping deriving (Eq, Show)
181:{
181:{
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)]]]
188:}
187:}
189
188
190resp <- withBH' $ putMapping testIndex testMapping TweetMapping
189resp <- withBH' $ putMapping testIndex testMapping TweetMapping