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\