@@ -50,8 +50,8 @@ data TweetMapping = TweetMapping deriving (Eq, Show)
5050instance ToJSON TweetMapping where
5151 toJSON TweetMapping =
5252 object ["tweet" .=
53− object ["properties" .=
54− object ["location" .= object ["type" .= ("geo_point" :: Text)]]]]
53+ object ["properties" .=
54+ object ["location" .= object ["type" .= ("geo_point" :: Text)]]]]
5555
5656exampleTweet :: Tweet
5757exampleTweet = Tweet { user = "bitemyapp"