reverse-geocoding 0.1.1.1 → 0.2

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• reverse-geocoding.cabal +1/−1
• src/Data/Geolocation/Reverse/Providers.hs +2/−2

@@ -1,5 +1,5 @@ name:                reverse-geocoding-version:             0.1.1.1+version:             0.2 synopsis:            Simple reverse geocoding using OpenStreeMap description:         Simple reverse geocoding using OpenStreeMap homepage:            https://github.com/jcristovao/reverse-geocoding

@@ -60,7 +60,7 @@ openStreetMapParser :: Object -> Parser ParsedLocationInfo openStreetMapParser o =   ParsedLocationInfo <$> o .:  "country_code"-                     <*> o .:  "city"+                     <*> (o .:  "city" <|> o .: "village")                      <*> ((o .:? "suburb") <||> fmap (join . fmap getPostCodeText) ( o .:? "postcode"))-                     <*> ((o .:? "road") <|> (o .:? "street"))+                     <*> ((o .:? "road") <||> (o .:? "street"))                      <*> o .:? "postcode"