diff --git a/src/Vervis/Handler/Deck.hs b/src/Vervis/Handler/Deck.hs index 59ace3e..53e3344 100644 --- a/src/Vervis/Handler/Deck.hs +++ b/src/Vervis/Handler/Deck.hs @@ -164,7 +164,7 @@ getDeckR deckHash = do (DeckUnfollowR deckHash) (actorFollowers actor) - provideHtmlAndAP deckAP $ redirectToPrettyJSON $ DeckR deckHash + provideHtmlAndAP deckAP $ redirect $ DeckTicketsR deckHash getDeckInboxR :: KeyHashid Deck -> Handler TypedContent getDeckInboxR = getInbox DeckInboxR deckActor