From 7800bc433772a66c6440ad3f4337545eb97eb73f Mon Sep 17 00:00:00 2001 From: stuebinm Date: Sat, 27 Jun 2026 23:05:09 +0200 Subject: bahnhof-name: do not filter out BFTs Notably, both Dresden Hbf and Dresden-Neustadt fall into this category, and these should definitely be found. --- app/Util.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/app/Util.hs b/app/Util.hs index 094f229..eefff84 100644 --- a/app/Util.hs +++ b/app/Util.hs @@ -102,7 +102,8 @@ readData = do putStrLn "Static data ready." let betriebsstellenFiltered = betriebsstellen - & V.filter (\line -> line !! 4 `notElem` ["BUSH", "LGR", "ÜST", "BFT", "ABZW", "BK", "AWAN", "ANST", "LGR"]) + & V.filter (\line -> line !! 4 `notElem` ["BUSH", "LGR", "ÜST", "ABZW", "BK", "AWAN", "ANST", "LGR"] + && line !! 5 `notElem` [ "TrSt" ]) let ril100set = addMany (V.toList (V.map (!! 2) betriebsstellenFiltered)) (emptySet 5 6 False) let ril100map = mkDoubleMap $ fmap (\line -> (Ril100 (line !! 1), line !! 2)) betriebsstellen -- cgit v1.2.3