fix names of betriebsstellen not having ü encoded properly

this was not ported from the previous gleam implementation.
This commit is contained in:
networkException 2024-07-26 19:05:44 +02:00
parent 8a4723f12f
commit 26119523f0
Signed by: networkException
GPG key ID: E3877443AE684391

View file

@ -302,7 +302,7 @@ main = do
let ril100set = addMany (V.toList (V.map (!! 2) betriebsstellenFiltered)) (emptySet 5 6 False)
putStrLn (seq ril100set "done")
let ril100map = mkDoubleMap $ fmap (\line -> (Ril100 (line !! 1), line !! 2)) betriebsstellen
let ril100map = mkDoubleMap $ fmap (\line -> (Ril100 (line !! 1), T.replace "<EFBFBD>" "ü" (line !! 2))) betriebsstellen
let leitpunktMap = mkDoubleMap $ fmap (\line -> (Ril100 (line !! 2), line !! 0)) leitpunkte
let ril100BaseUrl = "https://ril100.bahnhof.name"