@@ -37,7 +37,6 @@ data Flags =
3737 , runtime :: Maybe FilePath
3838 , only_js :: Bool
3939 , print_types :: Bool
40− , print_program :: Bool
4140 , scripts :: [FilePath]
4241 , no_prelude :: Bool
4342 , cache_dir :: FilePath
@@ -66,8 +65,6 @@ flags = Flags
6665 &= help "Additional source directories besides project root. Searched when using --make"
6766 , print_types = False
6867 &= help "Print out infered types of top-level definitions."
69− , print_program = False
70− &= help "Print out an internal representation of a program."
7168 } &= help "Compile Elm programs to HTML, CSS, and JavaScript."
7269 &= helpArg [explicit, name "help", name "h"]
7370 &= versionArg [explicit, name "version", name "v", summary (showVersion version)]
@@ -148,11 +145,7 @@ buildFile flags moduleNum numModules interfaces filePath =
148145 Left errors -> do
149146 mapM print (List.intersperse (P.text " ") errors)
150147 exitFailure
151− Right modul -> do
152− case print_program flags of
153− False -> return ()
154− True -> print . pretty $ program modul
155− return modul
148+ Right modul -> return modul
156149
157150 when (print_types flags)
158151 (printTypes interfaces