compileModule :: CoreModule -> Compile [Statement]
compileModule (CoreModule{cm_binds=binds}) =
  fmap concat (mapM compileBind binds)
compileModule :: CoreModule -> Compile [Statement]
compileModule (CoreModule{cm_binds=binds}) =
  fmap concat (mapM compileBind binds)
compileModule (CoreModule{cm_binds=binds}) =
  fmap concat (mapM compileBind binds)