anchor.diff:  [<RequireQualifiedAccess>]
   type Screen =
       | All
  -    | Desktop
  -    | Tablet
  -    | Mobile
  -    | WideScreen
  -    | Touch
  -    | FullHD
  -
  -    static member toString =
  -        function
  +    | [<CompiledName("desktop")>] Desktop
  +    | [<CompiledName("tablet")>] Tablet
  +    | [<CompiledName("mobile")>] Mobile
  +    | [<CompiledName("widescreen")>] WideScreen
  +    | [<CompiledName("touch")>] Touch
  +    | [<CompiledName("fullhd")>] FullHD
  +
  +    static member toString opt =
  +        match opt with
           | All -> ""
  -        | Desktop -> "-desktop"
  -        | Tablet -> "-tablet"
  -        | Mobile -> "-mobile"
  -        | WideScreen -> "-widescreen"
  -        | Touch -> "-touch"
  -        | FullHD -> "-fullhd"
  +        | Desktop
  +        | Tablet
  +        | Mobile
  +        | WideScreen
  +        | Touch
  +        | FullHD -> "-" + Fable.Core.Reflection.getCaseName opt
   
   [<AutoOpen>]
   module Color =
   
  -    module Classes =
  -        let [<Literal>] IsBlack = "is-black"
  -        let [<Literal>] IsDark = "is-dark"
  -        let [<Literal>] IsLight = "is-light"
  -        let [<Literal>] IsWhite = "is-white"
  -        let [<Literal>] IsPrimary = "is-primary"
  -        let [<Literal>] IsInfo = "is-info"
  -        let [<Literal>] IsSuccess = "is-success"
  -        let [<Literal>] IsWarning = "is-warning"
  -        let [<Literal>] IsDanger = "is-danger"
  -        let [<Literal>] IsLink = "is-link"
  -        let [<Literal>] IsBlackBis = "is-black-bis"
  -        let [<Literal>] IsBlackTer = "is-black-ter"
  -        let [<Literal>] IsGreyDarker = "is-grey-darker"
  -        let [<Literal>] IsGreyDark = "is-grey-dark"
  -        let [<Literal>] IsGrey = "is-grey"
  -        let [<Literal>] IsGreyLight = "is-grey-light"
  -        let [<Literal>] IsGreyLighter = "is-grey-lighter"
  -        let [<Literal>] IsWhiteTer = "is-white-ter"
  -        let [<Literal>] IsWhiteBis = "is-white-bis"
  -
       type IColor =
  +        | [<CompiledName("is-black")>] IsBlack
  +        | [<CompiledName("is-dark")>] IsDark
  +        | [<CompiledName("is-light")>] IsLight
  +        | [<CompiledName("is-white")>] IsWhite
  +        | [<CompiledName("is-primary")>] IsPrimary
  +        | [<CompiledName("is-info")>] IsInfo
  +        | [<CompiledName("is-success")>] IsSuccess
  +        | [<CompiledName("is-warning")>] IsWarning
  +        | [<CompiledName("is-danger")>] IsDanger
  +        | [<CompiledName("is-link")>] IsLink
  +        | [<CompiledName("is-black-bis")>] IsBlackBis
  +        | [<CompiledName("is-black-ter")>] IsBlackTer
  +        | [<CompiledName("is-grey-darker")>] IsGreyDarker
  +        | [<CompiledName("is-grey-dark")>] IsGreyDark
  +        | [<CompiledName("is-grey")>] IsGrey
  +        | [<CompiledName("is-grey-light")>] IsGreyLight
  +        | [<CompiledName("is-grey-lighter")>] IsGreyLighter
  +        | [<CompiledName("is-white-ter")>] IsWhiteTer
  +        | [<CompiledName("is-white-bis")>] IsWhiteBis
  +        /// Allow you to specify a custom color. The color will be prefixed by "is-"
  +        | IsCustomColor of string
  +        /// Allow you to specify a NoColor case.
  +        | NoColor
  +
  +    let ofColor level =
  +        match level with
  +        | NoColor -> ""
  +        | IsCustomColor color -> "is-" + color
           | IsBlack
           | IsDark
           | IsLight
  
positive.code:         | IsGreyLight
          | IsGreyLighter
          | IsWhiteTer
          | IsWhiteBis
          /// Allow you to specify a custom color. The color will be prefixed by "is-"
          | IsCustomColor of string
          /// Allow you to specify a NoColor case.
          | NoColor
  
      let ofColor level =
          match level with
          | IsBlack -> Classes.IsBlack
          | IsDark -> Classes.IsDark
          | IsLight -> Classes.IsLight
          | IsWhite -> Classes.IsWhite
          | IsPrimary -> Classes.IsPrimary
          | IsInfo -> Classes.IsInfo
          | IsSuccess -> Classes.IsSuccess
          | IsWarning -> Classes.IsWarning
          | IsDanger -> Classes.IsDanger
          | IsLink -> Classes.IsLink
          | IsBlackBis -> Classes.IsBlackBis
          | IsBlackTer -> Classes.IsBlackTer
          | IsGreyDarker -> Classes.IsGreyDarker
          | IsGreyDark -> Classes.IsGreyDark
          | IsGrey -> Classes.IsGrey
          | IsGreyLight -> Classes.IsGreyLight
          | IsGreyLighter -> Classes.IsGreyLighter
          | IsWhiteTer -> Classes.IsWhiteTer
          | IsWhiteBis -> Classes.IsWhiteBis
          | IsCustomColor color -> "is-" + color
          | NoColor -> ""
  
  [<AutoOpen>]
  module Size =
  
      module Classes =
          let [<Literal>] IsSmall = "is-small"
          let [<Literal>] IsMedium = "is-medium"
          let [<Literal>] IsLarge = "is-large"
  
      type ISize =
          | IsSmall
          | IsMedium
          | IsLarge
  
      let ofSize size =
          match size with
          | IsSmall -> Classes.IsSmall
          | IsMedium -> Classes.IsMedium
          | IsLarge -> Classes.IsLarge
  
  [<RequireQualifiedAccess>]
  module TextSize =
  
negative.code: [<RequireQualifiedAccess>]
  module TextAlignment =
  
      type Option =
          /// Add `has-text-centered`
          | [<CompiledName("has-text-centered")>] Centered
          /// Add `has-text-justified`
          | [<CompiledName("has-text-justified")>] Justified
          /// Add `has-text-left`
          | [<CompiledName("has-text-left")>] Left
          /// Add `has-text-right`
          | [<CompiledName("has-text-left")>] Right
  
          static member inline toString opt =
              Fable.Core.Reflection.getCaseName opt
  
      let inline generic screen alignment =
          Option.toString alignment + Screen.toString screen
  