diff options
Diffstat (limited to 'app/Heap.hs')
| -rw-r--r-- | app/Heap.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/app/Heap.hs b/app/Heap.hs index 0dc79e6..4108089 100644 --- a/app/Heap.hs +++ b/app/Heap.hs @@ -30,8 +30,7 @@ deref :: Int -> PrlgEnv Dereferenced deref = uses (cur . heap) . flip deref' writeHeap :: Int -> Datum -> PrlgEnv () -writeHeap a v = - cur . heap %= (\(Heap nxt m) -> Heap nxt $ M.insert a v m) +writeHeap a v = cur . heap %= (\(Heap nxt m) -> Heap nxt $ M.insert a v m) allocHeap :: Int -> PrlgEnv Int allocHeap n = do |