Ozone

The Ozone module provides convenience methods for Ozone moderation tooling (tools.ozone.* endpoints). These are used by labeler operators and moderation teams to take actions on content and accounts.

All Ozone functions require a serviceDid parameter -- the DID of the Ozone moderation service. The proxy header is applied automatically; you do not need to configure it manually.

All examples use taskResult {}. See the Error Handling guide for details.

open FSharp.ATProto.Core
open FSharp.ATProto.Bluesky
open FSharp.ATProto.Syntax

Key Types

OzoneSubject

The target of a moderation action:

type OzoneSubject =
    | Account of Did      // an entire account
    | Record of PostRef   // a specific record (post, etc.)

ModerationAction

The action to perform:

TeamRole

type TeamRole = Admin | Moderator | Triage | Verifier

TeamMember

type TeamMember =
    { Did : Did
      Role : TeamRole
      Disabled : bool
      CreatedAt : DateTimeOffset option
      UpdatedAt : DateTimeOffset option }

Moderation Events

Taking Down a Post and Adding a Label

taskResult {
    let! agent = Bluesky.login "https://bsky.social" "mod-handle.bsky.social" "app-password"

    // Take down a post
    let! _ =
        Ozone.emitEvent agent serviceDid
            (OzoneSubject.Record offendingPostRef)
            (ModerationAction.Takedown (Some "Violates community guidelines", None))

    // Add a label to an account
    let! _ =
        Ozone.emitEvent agent serviceDid
            (OzoneSubject.Account userDid)
            (ModerationAction.Label (Some "Content warning", [ "nsfw" ], []))

    // Reverse the takedown later
    let! _ =
        Ozone.emitEvent agent serviceDid
            (OzoneSubject.Record offendingPostRef)
            (ModerationAction.ReverseTakedown (Some "Reviewed and cleared"))

    return ()
}

Repository Inspection

taskResult {
    let! repoDetail = Ozone.getRepo agent serviceDid userDid
    let! recordDetail = Ozone.getRecord agent serviceDid recordUri
    let! searchResults = Ozone.searchRepos agent serviceDid "spam" (Some 10L) None
    return ()
}

Team Management

taskResult {
    // Add a new moderator
    let! _newMember = Ozone.addMember agent serviceDid newModeratorDid TeamRole.Moderator

    // Promote to admin
    let! _ = Ozone.updateMember agent serviceDid newModeratorDid (Some TeamRole.Admin) None

    // List all team members
    let! page = Ozone.listMembers agent serviceDid None None

    for m in page.Items do
        printfn "%s - %A" (Did.value m.Did) m.Role
}

Communication Templates

Templates for standardized moderation communications:

taskResult {
    let! template =
        Ozone.createTemplate agent serviceDid
            "Spam Warning"
            "Your content was flagged as spam. Please review our community guidelines."
            "Content Policy Notice"

    printfn "Created template: %s" template.Id

    // Update the template
    let! _ = Ozone.updateTemplate agent serviceDid template.Id
                (Some "Updated Spam Warning") None None None

    // Delete it
    do! Ozone.deleteTemplate agent serviceDid template.Id
}