@@ -119,7 +119,9 @@ buildFile flags moduleNum numModules interfaces filePath =
119 case buildFromSource (no_prelude flags) interfaces source of
119 case buildFromSource (no_prelude flags) interfaces source of
120 Left err -> mapM print err >> exitFailure
120 Left err -> mapM print err >> exitFailure
121 Right modul -> do
121 Right modul -> do
122+ case print_program flags of
122− if print_program flags then print . pretty $ program modul else return ()
124+ True -> print . pretty $ program modul
123 return modul
125 return modul
125 if print_types flags then printTypes metaModule else return ()
127 if print_types flags then printTypes metaModule else return ()