From 399e30434f11025418070aea8af0de628db2a67e Mon Sep 17 00:00:00 2001
From: me <me@campxfire.space>
Date: Fri, 1 Nov 2024 19:46:26 +0200
Subject: [PATCH] redirect /
---
app/Routes.hs | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
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