typeable/bloodhound
1
0
Fork 0
mirror of https://github.com/typeable/bloodhound.git synced 2024-11-29 12:54:15 +03:00
Code Issues Projects Releases Wiki Activity

reformatting, gitignore

Browse Source
This commit is contained in:
Chris Allen 2014-06-14 21:27:27 -05:00
parent 52172d030d
commit 3dbcca4299
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitignore vendored
View File

@ -4,3 +4,5 @@ dist/
.project
.dist-buildwrapper/
.DS_Store
*.hi
*.o

4
tests/tests.hs
View File

@ -50,8 +50,8 @@ data TweetMapping = TweetMapping deriving (Eq, Show)
instance ToJSON TweetMapping where
toJSON TweetMapping =
object ["tweet" .=
object ["properties" .=
object ["location" .= object ["type" .= ("geo_point" :: Text)]]]]
object ["properties" .=
object ["location" .= object ["type" .= ("geo_point" :: Text)]]]]
exampleTweet :: Tweet
exampleTweet = Tweet { user = "bitemyapp"