summaryrefslogtreecommitdiff
path: root/app/Env.hs
diff options
context:
space:
mode:
Diffstat (limited to 'app/Env.hs')
-rw-r--r--app/Env.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/app/Env.hs b/app/Env.hs
index 592d608..03a7ce8 100644
--- a/app/Env.hs
+++ b/app/Env.hs
@@ -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