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

post inbox

Browse source
This commit is contained in:
me 2024-11-05 16:06:53 +02:00
parent 645cc9057f
commit 75a26715d0
1 changed files with 13 additions and 5 deletions

18
app/Routes.hs
View file

@ -34,9 +34,13 @@ routes db detailsFile =
Twain.send $ Twain.html $ H.renderBS $ actorPage details notes
, -- Match outbox
Twain.get (Fedi.matchOutbox $ unsafePerformIO $ fetchUserDetails detailsFile) do
details <- liftIO $ fetchUserDetails detailsFile
notes <- map (Fedi.ActivityCreate . noteToCreate) <$> liftIO db.getNotes
Fedi.handleOutbox details notes
request <- Twain.request
if Fedi.checkContentTypeAccept request
then do
details <- liftIO $ fetchUserDetails detailsFile
notes <- map (Fedi.ActivityCreate . noteToCreate) <$> liftIO db.getNotes
Fedi.handleOutbox details notes
else Twain.next
, -- Match Create object
Twain.get (Fedi.matchCreateNote $ unsafePerformIO $ fetchUserDetails detailsFile) do
details <- liftIO $ fetchUserDetails detailsFile
@ -44,8 +48,12 @@ routes db detailsFile =
Fedi.handleCreateNote details notes
, -- Match inbox
Twain.get (Fedi.matchInbox $ unsafePerformIO $ fetchUserDetails detailsFile) do
Fedi.handleInbox (handleInbox db detailsFile)
Twain.post (Fedi.matchInbox $ unsafePerformIO $ fetchUserDetails detailsFile) do
request <- Twain.request
if Fedi.checkContentTypeAccept request
then do
Fedi.handleInbox (handleInbox db detailsFile)
else Twain.next
, -- Match Create object
Twain.get (Fedi.matchCreateNote $ unsafePerformIO $ fetchUserDetails detailsFile) do