summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFélix Sipma <felix.sipma@no-log.org>2014-12-03 18:41:40 +0100
committerFélix Sipma <felix.sipma@no-log.org>2014-12-03 18:41:40 +0100
commitae8d81169dd256ddaed0d0af9bc8294fbd68bd1c (patch)
treed83613b188cc456a7f7abe73d7989e7ae90f2de4
parent6632065a5f13cb2296007eb78085f777d9702022 (diff)
add altitude to json
-rw-r--r--Model.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Model.hs b/Model.hs
index 9bf554c..17a7d9d 100644
--- a/Model.hs
+++ b/Model.hs
@@ -50,7 +50,7 @@ toGeoFeature (Entity pid p) = G.GeoFeature
pointpos =
[ pntLat $ placeLocation p
, pntLon $ placeLocation p
- ]
+ ] ++ maybeToList (pntEle $ placeLocation p)
instance ToJSON (Entity Place) where
toJSON = toJSON . toGeoFeature