diff options
Diffstat (limited to 'app/Env.hs')
| -rw-r--r-- | app/Env.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3,11 +3,11 @@ module Env where import Code (InterpFn, PrlgEnv) import CodeLens import qualified IR -import Lens.Family2.State +import Lens.Micro.Mtl withStrTable :: (IR.StrTable -> (IR.StrTable, a)) -> Env.PrlgEnv a withStrTable f = do - (st', x) <- strtable `uses` f + (st', x) <- f <$> use strtable strtable .= st' return x |
