cosmetic: nicer way to conditionally run type printer
commite8a661531ad102b4ef2580d45e9dc48cc6247a94
authorEvan Czaplicki <info@elm-lang.org>
dateMon 14 Oct 2013, 20:14 (13 years ago)
parent11a60de
compiler/Compiler.hs+1−1
@@ -146,7 +146,7 @@ buildFile flags moduleNum numModules interfaces filePath =
146146 True -> print . pretty $ program modul
147147 return modul
148148
149− if print_types flags then printTypes interfaces metaModule else return ()
149+ when (print_types flags) (printTypes interfaces metaModule)
150150 let interface = Canonical.interface name $ ModuleInterface {
151151 iTypes = types metaModule,
152152 iAdts = datatypes metaModule,