diff options
Diffstat (limited to 'app/Heap.hs')
| -rw-r--r-- | app/Heap.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/app/Heap.hs b/app/Heap.hs index 4108089..1daa52f 100644 --- a/app/Heap.hs +++ b/app/Heap.hs @@ -5,7 +5,7 @@ import CodeLens import Data.Foldable (traverse_) import qualified Data.Map as M import IR (Id(..)) -import Lens.Family2.State +import Lens.Micro.Mtl data Dereferenced = FreeRef Int @@ -27,7 +27,7 @@ deref' h@(Heap _ hmap) x = derefHeap = deref' --TODO remove deref :: Int -> PrlgEnv Dereferenced -deref = uses (cur . heap) . flip deref' +deref x = flip deref' x <$> use (cur . heap) writeHeap :: Int -> Datum -> PrlgEnv () writeHeap a v = cur . heap %= (\(Heap nxt m) -> Heap nxt $ M.insert a v m) |