Add support for pattern for strings

[miniBill]

No description provided.

[github-actions]

diff --ignore-all-space --minimal --new-file --recursive main/cli/generated/GithubV3RestApi/Json.elm branch/cli/generated/GithubV3RestApi/Json.elm
253a254
> import Regex
25931a25933,25949
>     let
>         regex =
>             Maybe.withDefault Regex.never (Regex.fromString "^[0-9a-fA-F]+$")
>     in
>     Json.Decode.andThen
>         (\andThenUnpack ->
>             if Regex.contains regex andThenUnpack then
>                 Json.Decode.succeed andThenUnpack
> 
>             else
>                 Json.Decode.fail
>                     ("Unexpected value: expected a string matching \"^[0-9a-fA-F]+$\" got "
>                         ++ Json.Encode.encode
>                             0
>                             (Json.Encode.string andThenUnpack)
>                     )
>         )
29476a29495,29513
>                 (let
>                     regex =
>                         Maybe.withDefault
>                             Regex.never
>                             (Regex.fromString "^pkg")
>                  in
>                  Json.Decode.andThen
>                     (\andThenUnpack ->
>                         if Regex.contains regex andThenUnpack then
>                             Json.Decode.succeed andThenUnpack
> 
>                         else
>                             Json.Decode.fail
>                                 ("Unexpected value: expected a string matching \"^pkg\" got "
>                                     ++ Json.Encode.encode
>                                         0
>                                         (Json.Encode.string andThenUnpack)
>                                 )
>                     )
29478a29516
>             )
48416c48454,48477
<             (Json.Decode.field "ref" Json.Decode.string)
---
>             (Json.Decode.field
>                 "ref"
>                 (let
>                     regex =
>                         Maybe.withDefault
>                             Regex.never
>                             (Regex.fromString "^refs/")
>                  in
>                  Json.Decode.andThen
>                     (\andThenUnpack ->
>                         if Regex.contains regex andThenUnpack then
>                             Json.Decode.succeed andThenUnpack
> 
>                         else
>                             Json.Decode.fail
>                                 ("Unexpected value: expected a string matching \"^refs/\" got "
>                                     ++ Json.Encode.encode
>                                         0
>                                         (Json.Encode.string andThenUnpack)
>                                 )
>                     )
>                     Json.Decode.string
>                 )
>             )