module Routes.Inbox.Like where

import Control.Logger.Simple qualified as Log
import DB
import Fedi qualified as Fedi
import Web.Twain qualified as Twain

handleInboxLike
  :: DB
  -> Fedi.Like
  -> Twain.ResponderM Twain.Response
handleInboxLike db like = do
  let
    id' = like.id
    actor = like.otype.actor
    note = like.otype.atype.object
  case id' of
    Just id'' -> do
      let
        likeEntry =
          ( LikeEntry
              { likeUrl = fromString id''.unwrap
              , likeActorUrl = actor
              , likeNoteUrl = note
              }
          )
        operation = do
          likeid <- db.insertLike likeEntry
          Log.logInfo ("New like: " <> Fedi.pShow (likeid, likeEntry))
      liftIO operation
      pure $ Twain.text ""
    Nothing ->
      Twain.next

  {-
handleInboxUnlike
  :: DB
  -> Fedi.Like
  -> Twain.ResponderM Twain.Response
handleInboxUnlike db like = do
  let
    id' = like.id
    actor = like.otype.actor
    note = like.otype.atype.object
  case id' of
    Just id'' -> do
          let
            followerEntry =
              ( LikeEntry
                  { likeUrl = fromString id''.unwrap
                  , likeActorUrl = actor
                  , likeNoteUrl = note
                  }
              )
            operation sendAccept = do
              deleteFollower
                db
                LikeEntry
                ( \deletedId' -> do
                    let
                      deletedId = Fedi.fromMaybe 0 deletedId'
                    sendAccept deletedId
                      <* Log.logInfo ("Deleted follower: " <> Fedi.pShow deletedId)
                )

          liftIO $ acceptRequest details actor activity operation

          pure $ Twain.text ""
    Nothing ->
      Twain.next

-}