@@ -7,7 +7,8 @@ import System.Console.CmdArgs
77data Flags = Flags
88 { make :: Bool
99 , files :: [FilePath]
10− , runtime :: Maybe FilePath
10+ , set_runtime :: Maybe FilePath
11+ , get_runtime :: Bool
1112 , only_js :: Bool
1213 , print_types :: Bool
1314 , scripts :: [FilePath]
@@ -15,7 +16,6 @@ data Flags = Flags
1516 , cache_dir :: FilePath
1617 , build_dir :: FilePath
1718 , src_dir :: [FilePath]
18− , show_runtime :: Bool
1919 }
2020 deriving (Data,Typeable,Show,Eq)
2121
@@ -29,8 +29,10 @@ flags = Flags
2929 &= help "Do not import Prelude by default, used only when compiling standard libraries."
3030 , scripts = [] &= typFile
3131 &= help "Load JavaScript files in generated HTML. Files will be included in the given order."
32− , runtime = Nothing &= typFile
33− &= help "Specify a custom location for Elm's runtime system."
32+ , set_runtime = Nothing &= typFile
33+ &= help "Specify a custom location for Elm's runtime system."
34+ , get_runtime = False
35+ &= help "Print the absolute path to the default Elm runtime."
3436 , cache_dir = "cache" &= typFile
3537 &= help "Directory for files cached to make builds faster. Defaults to cache/ directory."
3638 , build_dir = "build" &= typFile
@@ -39,8 +41,6 @@ flags = Flags
3941 &= help "Additional source directories besides project root. Searched when using --make"
4042 , print_types = False
4143 &= help "Print out inferred types of top-level definitions."
42− , show_runtime = False
43− &= help "Print the absolute path to the default Elm runtime."
4444 } &= help "Compile Elm programs to HTML, CSS, and JavaScript."
4545 &= helpArg [explicit, name "help", name "h"]
4646 &= versionArg [explicit, name "version", name "v", summary (show Version.elmVersion)]