git.iko.soy/typeable/bloodhound
on master help sign in
reformatting, gitignore
3dbcca4Chris Allen
.gitignore+2
compare with master
unifiedsplit
@@ -4,3 +4,5 @@ dist/
4.project
4.project
5.dist-buildwrapper/
5.dist-buildwrapper/
6.DS_Store
6.DS_Store
7+*.hi
8+*.o
tests/tests.hs+2−2
@@ -50,8 +50,8 @@ data TweetMapping = TweetMapping deriving (Eq, Show)
50instance ToJSON TweetMapping where
50instance ToJSON TweetMapping where
51 toJSON TweetMapping =
51 toJSON TweetMapping =
52 object ["tweet" .=
52 object ["tweet" .=
53− object ["properties" .=
53+ object ["properties" .=
54− object ["location" .= object ["type" .= ("geo_point" :: Text)]]]]
54+ object ["location" .= object ["type" .= ("geo_point" :: Text)]]]]
55
55
56exampleTweet :: Tweet
56exampleTweet :: Tweet
57exampleTweet = Tweet { user = "bitemyapp"
57exampleTweet = Tweet { user = "bitemyapp"