From 783bf8859a143871032e8359c09ce0d3959b9c69 Mon Sep 17 00:00:00 2001 From: stuebinm Date: Wed, 15 Nov 2023 21:51:17 +0100 Subject: [PATCH] overpass query: some stations don't have a meta node --- app/Main.hs | 4 ++-- 1 file 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\