diff options
author | stuebinm | 2023-11-29 18:34:08 +0100 |
---|---|---|
committer | stuebinm | 2023-11-29 18:34:08 +0100 |
commit | 71c2ceb1c6b78a10dccc4419c0204ef0bea68974 (patch) | |
tree | 3979d845aa3a564a3d53e9e88e6a26271f610e6c | |
parent | 5a0ee2039803b555b0702f717b3418f59e2121ac (diff) |
fix fuzzy redirects for platform info lookups
-rw-r--r-- | app/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/app/Main.hs b/app/Main.hs index 6889733..8bf2a5f 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -141,7 +141,7 @@ app AppData{..} request respond = mkAnswer >>= (respond . toResponse) [query, segment] | segment `elem` ["gleis", "track", "tracks", "gleise", "platform", "platforms", "fetch"] -> case queriedRil100 query of None -> pure Notfound - Fuzzy url -> pure (Redirect url) + Fuzzy url -> pure (Redirect (T.intercalate "/" [url, segment])) Exact ril100 -> do maybeCache <- readTVarIO platformCache <&> M.lookup ril100 now <- getCurrentTime |