prettyAnnotationVisibility :: AnnotationVisibility -> PP.Doc
prettyAnnotationVisibility v =
  case v of
    AVBuild -> "BUILD"
    AVRuntime -> "RUNTIME"
    AVSystem -> "SYSTEM"
prettyAnnotationVisibility :: AnnotationVisibility -> PP.Doc
prettyAnnotationVisibility v =
  case v of
    AVBuild -> "BUILD"
    AVRuntime -> "RUNTIME"
    AVSystem -> "SYSTEM"
prettyAnnotationVisibility v =
  case v of
    AVBuild -> "BUILD"
    AVRuntime -> "RUNTIME"
    AVSystem -> "SYSTEM"