git.iko.soy/elk
on master help sign in
cosmetic: nicer way to conditionally run type printer
e8a6615Evan Czaplicki
compiler/Compiler.hs+1−1
compare with master
unifiedsplit
@@ -146,7 +146,7 @@ buildFile flags moduleNum numModules interfaces filePath =
146 True -> print . pretty $ program modul
146 True -> print . pretty $ program modul
147 return modul
147 return modul
148
148
149− if print_types flags then printTypes interfaces metaModule else return ()
149+ when (print_types flags) (printTypes interfaces metaModule)
150 let interface = Canonical.interface name $ ModuleInterface {
150 let interface = Canonical.interface name $ ModuleInterface {
151 iTypes = types metaModule,
151 iTypes = types metaModule,
152 iAdts = datatypes metaModule,
152 iAdts = datatypes metaModule,