diff options
| author | stuebinm | 2026-06-27 23:05:09 +0200 |
|---|---|---|
| committer | stuebinm | 2026-06-27 23:05:09 +0200 |
| commit | 7800bc433772a66c6440ad3f4337545eb97eb73f (patch) | |
| tree | 341b1e0e9086211a368b2df10f7a69f339a6406b | |
| parent | d37a8c5f1b6dd88c1ebe5310161c16a0c463defb (diff) | |
bahnhof-name: do not filter out BFTs
Notably, both Dresden Hbf and Dresden-Neustadt fall into this category,
and these should definitely be found.
| -rw-r--r-- | app/Util.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |