Prettify code to print program
commitf8182740bcd5f549056ae8b65593e9258ab9db50
authorEvan Czaplicki <info@elm-lang.org>
dateMon 29 Jul 2013, 13:21 (13 years ago)
parent5c81d14
compiler/Compiler.hs+3−1
@@ -119,7 +119,9 @@ buildFile flags moduleNum numModules interfaces filePath =
119119 case buildFromSource (no_prelude flags) interfaces source of
120120 Left err -> mapM print err >> exitFailure
121121 Right modul -> do
122− if print_program flags then print . pretty $ program modul else return ()
122+ case print_program flags of
123+ False -> return ()
124+ True -> print . pretty $ program modul
123125 return modul
124126
125127 if print_types flags then printTypes metaModule else return ()