do a s/�/ü/ on the inputHEADmain

this quirk was forgotten during the haskell rewrite (reported by
networkException).

It's now done in a somewhat awkward way: it's hard to do this before
parsing the csv (when it's still an unencoded ByteString), but doing it
later might easily miss relevant places. In either case this does lots
of slightly unecessary copying 🤷

Also the nested quadruple fmap feels like its own justification

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]) <-