diff options
| -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 |