on master help sign in
update Main now that UTF-8 is handled by Terminal.Args and imports are reduced
commit92ee73befdcbc28bc30d202fdfbfb64440790679 authorEvan Czaplicki <evancz@users.noreply.github.com> dateTue 11 Jun 2019, 11:34 (7 years ago) parenteffb8be
1 file changed+11−15
terminal/src/Main.hs+11−15
terminal/src/Main.hs+11−15
@@ -6,15 +6,12 @@ module Main
66
77
88import Prelude hiding (init)
9−import GHC.IO.Encoding (setLocaleEncoding, utf8)
109import qualified Data.List as List
1110import qualified Text.PrettyPrint.ANSI.Leijen as P
1211import Text.PrettyPrint.ANSI.Leijen ((<>))
1312import Text.Read (readMaybe)
1413
15−import qualified Elm.Diff as Diff
1614import qualified Elm.Version as V
17−import qualified Generate.Output as Output
1815import Terminal.Args
1916import Terminal.Args.Helpers
2017
@@ -34,17 +31,16 @@ import qualified Repl
3431
3532main :: IO ()
3633main =
37− do setLocaleEncoding utf8
38− complex intro outro
39− [ repl
40− , init
41− , reactor
42− , make
43− , install
44− , bump
45− , diff
46− , publish
47− ]
34+ complex intro outro
35+ [ repl
36+ , init
37+ , reactor
38+ , make
39+ , install
40+ , bump
41+ , diff
42+ , publish
43+ ]
4844
4945
5046intro :: P.Doc
@@ -196,7 +192,7 @@ make =
196192 flags Make.Flags
197193 |-- onOff "debug" "Turn on the time-travelling debugger. It allows you to rewind and replay events. The events can be imported/exported into a file, which makes for very precise bug reports!"
198194 |-- onOff "optimize" "Turn on optimizations to make code smaller and faster. For example, the compiler renames record fields to be as short as possible and unboxes values to reduce allocation."
199− |-- flag "output" Output.output "Specify the name of the resulting JS file. For example --output=assets/elm.js to generate the JS at assets/elm.js or --output=/dev/null to generate no output at all!"
195+ |-- flag "output" Make.output "Specify the name of the resulting JS file. For example --output=assets/elm.js to generate the JS at assets/elm.js or --output=/dev/null to generate no output at all!"
200196 |-- flag "report" Make.reportType "You can say --report=json to get error messages as JSON. This is only really useful if you are an editor plugin. Humans should avoid it!"
201197 |-- flag "docs" Make.docsFile "Generate a JSON file of documentation for a package. Eventually it will be possible to preview docs with `reactor` because it is quite hard to deal with these JSON files directly."
202198 in