From 0092723895da4136a68f71f34a816b33586d9ccb Mon Sep 17 00:00:00 2001 From: Mirek Kratochvil Date: Sun, 26 Feb 2023 21:43:25 +0100 Subject: 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. --- app/Env.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'app/Env.hs') 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 -- cgit v1.2.3