Expose `GHC.Driver.Session.updOptLevelChanged`
I'm updating inspection-testing
as part of ecosystem prep for GHC 9.4, and I'm porting the following line:
let noopt = optLevel dflags < 1
Grepping through GHC, the function updOptLevelChanged
is perfect - I can write snd $ updOptLevelChanged 1 dflags
. Unfortunately, this is not exposed, and DynFlags
does not have an Eq
instance, so I cannot do dflags == updOptLevel 1 dflags
.