fix fuzzy redirects for platform info lookups

2023-11-29 18:34:08 +01:00 · 2023-11-29 18:34:08 +01:00 · 71c2ceb1c6
commit 71c2ceb1c6
parent 5a0ee20398
1 changed files with 1 additions and 1 deletions
--- 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