diff options
| -rw-r--r-- | app/Main.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/app/Main.hs b/app/Main.hs index 3ec2cac..b684ac3 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -292,6 +292,7 @@ main = do Right (betriebsstellen :: V.Vector [Text]) <- LB.readFile "data/DBNetz-Betriebsstellenverzeichnis-Stand2021-10.csv" <&> decodeWith csvOptions HasHeader + <&> (fmap . fmap . fmap) (T.replace "�" "ü") let betriebsstellenFiltered = betriebsstellen & V.filter (\line -> line !! 4 `notElem` ["BUSH", "LGR", "ÜST", "BFT", "ABZW", "BK", "AWAN", "ANST", "LGR"]) Right (leitpunkte :: V.Vector [Text]) <- |