diff options
| author | Mirek Kratochvil <exa.exa@gmail.com> | 2023-02-26 18:10:10 +0100 |
|---|---|---|
| committer | Mirek Kratochvil <exa.exa@gmail.com> | 2023-02-26 18:10:10 +0100 |
| commit | 0d52bcf663ead766ae83c8f30f90beaea5790789 (patch) | |
| tree | 7163b9365d4bafb9dfc70c2d50d1d3e1e1742232 /app/Heap.hs | |
| parent | 538dc0714afb48e399fb41342e943c7ff7feae65 (diff) | |
| download | prlg-0d52bcf663ead766ae83c8f30f90beaea5790789.tar.gz prlg-0d52bcf663ead766ae83c8f30f90beaea5790789.tar.bz2 | |
semicolon colons semi
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 |