bool_opt ::     [T.Text] -> Bool -> OptEnum -> Opt Bool
bool_opt hp x0 ce =
    Opt
        { opt_enum    = ce
        , opt_default = x0
        , opt_from    = frm
        , opt_to      = Bool
        , opt_help    = Help hp "<boolean>"
        }
  where
    frm v =
        case v of
          Bool b -> b
          _      -> x0
bool_opt ::     [T.Text] -> Bool -> OptEnum -> Opt Bool
bool_opt hp x0 ce =
    Opt
        { opt_enum    = ce
        , opt_default = x0
        , opt_from    = frm
        , opt_to      = Bool
        , opt_help    = Help hp "<boolean>"
        }
  where
    frm v =
        case v of
          Bool b -> b
          _      -> x0
bool_opt hp x0 ce =
    Opt
        { opt_enum    = ce
        , opt_default = x0
        , opt_from    = frm
        , opt_to      = Bool
        , opt_help    = Help hp "<boolean>"
        }
  where
    frm v =
        case v of
          Bool b -> b
          _      -> x0