typeable/bloodhound
1
0
Fork 0
mirror of https://github.com/typeable/bloodhound.git synced 2024-11-25 23:46:40 +03:00
Code Issues Projects Releases Wiki Activity

Use Types.LatLon for location

Browse Source
This commit is contained in:
Lars Jägare 2017-08-10 11:07:45 +02:00
parent e34d30285b
commit b3c602d83e
1 changed files with 3 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
examples/Tweet.hs
View File

@ -29,22 +29,13 @@ instance ToJSON TweetMapping where
[ "properties" .=
object ["location" .= object ["type" .= ("geo_point" :: Text)]]
]
-------------------------------------------------------------------------------
data Location = Location
{ locLat :: Double
, locLon :: Double
} deriving (Eq, Generic, Show)
-------------------------------------------------------------------------------
data Tweet = Tweet
{ user :: Text
, postDate :: UTCTime
, message :: Text
, age :: Int
, location :: Location
, location :: LatLon
} deriving (Eq, Generic, Show)
@ -59,16 +50,12 @@ exampleTweet =
, location = loc
}
where
loc = Location {locLat = 40.12, locLon = (-71.34)}
loc = LatLon {lat = 40.12, lon = -71.3}
instance ToJSON Tweet where
toJSON = genericToJSON defaultOptions
instance FromJSON Tweet where
parseJSON = genericParseJSON defaultOptions
instance ToJSON Location where
toJSON = genericToJSON defaultOptions
instance FromJSON Location where
parseJSON = genericParseJSON defaultOptions
main :: IO ()
@ -117,7 +104,7 @@ main = runBH' $ do
return ()
where
testServer = (Server "http://localhost:9200")
testServer = Server "http://localhost:9200"
runBH' = withBH defaultManagerSettings testServer
testIndex = IndexName "twitter"
testMapping = MappingName "tweet"