summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFélix Sipma <felix.sipma@no-log.org>2014-12-05 18:59:34 +0100
committerFélix Sipma <felix.sipma@no-log.org>2014-12-05 18:59:34 +0100
commit80e8026048b49ca6e0659f4843ad1f05e18eca5e (patch)
tree22c3d05fba18d2b2cb68e8e975a9d4ceb2a4faed
parent9bd6998241140013b3fb46f5d752af3b8af8d849 (diff)
fix bug in geojson: use [lon,lat] instead of [lat,lon]
-rw-r--r--Model.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Model.hs b/Model.hs
index 17a7d9d..b8b52b5 100644
--- a/Model.hs
+++ b/Model.hs
@@ -48,8 +48,8 @@ toGeoFeature (Entity pid p) = G.GeoFeature
Nothing
where
pointpos =
- [ pntLat $ placeLocation p
- , pntLon $ placeLocation p
+ [ pntLon $ placeLocation p
+ , pntLat $ placeLocation p
] ++ maybeToList (pntEle $ placeLocation p)
instance ToJSON (Entity Place) where