diff --git a/app/Routes.hs b/app/Routes.hs index 17e9cb0..0f7215d 100644 --- a/app/Routes.hs +++ b/app/Routes.hs @@ -14,7 +14,13 @@ import Web.Twain qualified as Twain routes :: DB -> FilePath -> [Twain.Middleware] routes db detailsFile = - [ -- Match actor + [ Twain.get "/" do + details <- liftIO $ fetchUserDetails detailsFile + Twain.send $ + Twain.redirect302 $ + fromString ("/" <> details.username) + + , -- Match actor Twain.get (Fedi.matchUser $ unsafePerformIO $ fetchUserDetails detailsFile) do request <- Twain.request if Fedi.checkContentTypeAccept request