forks/bahnhof.name
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix fuzzy redirects for platform info lookups

Browse source
This commit is contained in:
stuebinm 2023-11-29 18:34:08 +01:00
parent 5a0ee20398
commit 71c2ceb1c6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
app/Main.hs
View file

@ -141,7 +141,7 @@ app AppData{..} request respond = mkAnswer >>= (respond . toResponse)
[query, segment] | segment `elem` ["gleis", "track", "tracks", "gleise", "platform", "platforms", "fetch"] [query, segment] | segment `elem` ["gleis", "track", "tracks", "gleise", "platform", "platforms", "fetch"]
-> case queriedRil100 query of -> case queriedRil100 query of
None -> pure Notfound None -> pure Notfound
Fuzzy url -> pure (Redirect url) Fuzzy url -> pure (Redirect (T.intercalate "/" [url, segment]))
Exact ril100 -> do Exact ril100 -> do
maybeCache <- readTVarIO platformCache <&> M.lookup ril100 maybeCache <- readTVarIO platformCache <&> M.lookup ril100
now <- getCurrentTime now <- getCurrentTime