diff --git a/app/Main.hs b/app/Main.hs index 3ec2cac..dd35f07 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -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 "�" "ü" (line !! 2))) betriebsstellen let leitpunktMap = mkDoubleMap $ fmap (\line -> (Ril100 (line !! 2), line !! 0)) leitpunkte let ril100BaseUrl = "https://ril100.bahnhof.name"