Switch the flags in `elm init` to match elm/browser programs
commita7920611233cde1b94b0149002f8bd622011df1a
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateWed 30 May 2018, 13:30 (8 years ago)
parent123a4fb
ui/terminal/src/Init.hs+4−4
@@ -29,8 +29,8 @@ import qualified Reporting.Progress.Terminal as Terminal
2929
3030data Flags =
3131 Flags
32− { _embed :: Bool
33− , _fullscreen :: Bool
32+ { _element :: Bool
33+ , _document :: Bool
3434 }
3535
3636
@@ -79,8 +79,8 @@ init :: Flags -> Task.Task ()
7979init flags =
8080 case flags of
8181 Flags False False -> download "sandbox"
82− Flags True False -> download "embed"
83− Flags False True -> download "fullscreen"
82+ Flags True False -> download "element"
83+ Flags False True -> download "document"
8484 Flags _ _ -> Task.throw $ Exit.Init E.ClashingFlags
8585
8686
ui/terminal/src/Main.hs+2−2
@@ -95,8 +95,8 @@ init =
9595
9696 initFlags =
9797 flags Init.Flags
98− |-- onOff "embed" "Switch Browser.sandbox to Browser.embed, making it easier to jump into making HTTP requests, generating random values, asking the time, etc."
99− |-- onOff "fullscreen" "Switch Browser.sandbox to Browser.fullscreen, setting you up for a single-page app that controls the <title> and URL of the browser."
98+ |-- onOff "element" "Initialize a Browser.element program, making it easier to jump into making HTTP requests, generating random values, asking the time, etc."
99+ |-- onOff "document" "Initialize a Browser.document program, allowing you to control the <title> and and <body> of the browser."
100100 in
101101 Interface "init" (Common summary) details example noArgs initFlags Init.run
102102