invitationParams :: ExerciseId -> Handler [(Text, Text)]
invitationParams spId = do
    sp <- runDB $ get404 spId
    pure [("exercise", tshow $ fromSqlKey spId), ("invitation-secret", exerciseInvitationSecret sp)]
invitationParams :: ExerciseId -> Handler [(Text, Text)]
invitationParams spId = do
    sp <- runDB $ get404 spId
    pure [("exercise", tshow $ fromSqlKey spId), ("invitation-secret", exerciseInvitationSecret sp)]
invitationParams spId = do
    sp <- runDB $ get404 spId
    pure [("exercise", tshow $ fromSqlKey spId), ("invitation-secret", exerciseInvitationSecret sp)]