microlens and an ugly parse of ,(something,something)

btw we triggered a ghc bug here with iscallTok in parser. Apparently it kills
`call` for whichever reason. New ghc solved it.

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