Rename variant.

This commit is contained in:
Dillon Kearns 2022-11-23 16:38:36 -08:00
parent 80b4f69026
commit c9e1eecc3c
2 changed files with 4 additions and 4 deletions

View File

@ -61,7 +61,7 @@ app config =
cliConfig : Program.Config (DataSource ())
cliConfig =
case config.data of
Generator theCliConfig ->
Script theCliConfig ->
theCliConfig HtmlPrinter.htmlToString
in
Program.stateful

View File

@ -35,7 +35,7 @@ import Json.Encode as Encode
{-| -}
type Script
= Generator
= Script
((Maybe { indent : Int, newLines : Bool }
-> Html Never
-> String
@ -78,7 +78,7 @@ log message =
{-| -}
withoutCliOptions : DataSource () -> Script
withoutCliOptions execute =
Generator
Script
(\_ ->
Program.config
|> Program.add
@ -93,7 +93,7 @@ withoutCliOptions execute =
{-| -}
withCliOptions : Program.Config cliOptions -> (cliOptions -> DataSource ()) -> Script
withCliOptions config execute =
Generator
Script
(\_ ->
config
|> Program.mapConfig execute