mirror of
https://github.com/dillonkearns/elm-pages-v3-beta.git
synced 2024-12-27 13:54:08 +03:00
Rename variant.
This commit is contained in:
parent
80b4f69026
commit
c9e1eecc3c
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user