From 26546246ae1fd7829a918001e317802733b5baf5 Mon Sep 17 00:00:00 2001
From: me <me@alloca.space>
Date: Tue, 17 Dec 2024 10:46:59 +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