From 71c2ceb1c6b78a10dccc4419c0204ef0bea68974 Mon Sep 17 00:00:00 2001 From: stuebinm Date: Wed, 29 Nov 2023 18:34:08 +0100 Subject: [PATCH] fix fuzzy redirects for platform info lookups --- app/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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