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