summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorstuebinm2023-11-15 21:51:17 +0100
committerstuebinm2023-11-15 21:53:55 +0100
commit783bf8859a143871032e8359c09ce0d3959b9c69 (patch)
treea033218bdebb5dc25dc970d7dcc466d17e3e401d
parentb33c00f1c390265fc8dec98f57e36ee4ca9ba2ac (diff)
overpass query: some stations don't have a meta node
-rw-r--r--app/Main.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/app/Main.hs b/app/Main.hs
index 2a31a49..60f2e35 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -151,8 +151,8 @@ app AppData{..} request respond = mkAnswer >>= (respond . toResponse)
_ -> do
let overpassQuery = " \
\[out:csv(::type, ::id, ref, local_ref, level, layer;false)][timeout:25];\n\
- \node[~\"railway:ref|railway:ref:parent\"~\"^"<>encodeUtf8 (unRil100 ril100)<>"$\"][operator~\"^(DB |Deutsch)\"];\n\
- \rel[public_transport~\"stop_area|stop_area_group\"](bn) -> .a;\n\
+ \nwr[~\"railway:ref|railway:ref:parent\"~\"^"<>encodeUtf8 (unRil100 ril100)<>"$\"][operator~\"^(DB|Deutsch)\"];\n\
+ \(._;rel[public_transport~\"stop_area|stop_area_group\"](bn);) -> .a;\n\
\rel[public_transport~\"stop_area|stop_area_group\"](br.a) -> .b;\n\
\(.a;.b;);\n\
\nwr[railway=platform](>>);\n\