setOptM flag = updEnv (\ env@(Env { env_top = top }) ->
env { env_top = top { hsc_dflags = lopt_set_flattened (hsc_dflags top) flag}} )
setOptM flag = updEnv (\ env@(Env { env_top = top }) ->
env { env_top = top { hsc_dflags = lopt_set_flattened (hsc_dflags top) flag}} )