me/fedi
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

redirect /

Browse source
This commit is contained in:
me 2024-11-01 19:46:26 +02:00
parent d3932e8282
commit 399e30434f
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
app/Routes.hs
View file

@ -14,7 +14,13 @@ import Web.Twain qualified as Twain
routes :: DB -> FilePath -> [Twain.Middleware] routes :: DB -> FilePath -> [Twain.Middleware]
routes db detailsFile = 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 Twain.get (Fedi.matchUser $ unsafePerformIO $ fetchUserDetails detailsFile) do
request <- Twain.request request <- Twain.request
if Fedi.checkContentTypeAccept request if Fedi.checkContentTypeAccept request