msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

remove debug traces

Browse Source
This commit is contained in:
crumbtoo
2023-11-25 04:20:44 -07:00
parent 57d08046de
commit c0ebd227fc
2 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/Data/Heap.hs
View File

@@ -64,8 +64,7 @@ adjust :: Addr -> (a -> a) -> Heap a -> Heap a
adjust k f (Heap u m) = Heap u (M.adjust f k m) adjust k f (Heap u m) = Heap u (M.adjust f k m)
free :: Addr -> Heap a -> Heap a free :: Addr -> Heap a -> Heap a
free k (Heap u m) = Heap (k:u) (M.delete k' m) free k (Heap u m) = Heap (k:u) (M.delete k m)
where k' = k -- trace ("free " <> show k) k
hLookup :: Addr -> Heap a -> Maybe a hLookup :: Addr -> Heap a -> Maybe a
hLookup k (Heap _ m) = m !? k hLookup k (Heap _ m) = m !? k

1
src/TIM.hs
View File

@@ -16,7 +16,6 @@ import System.IO (Handle, hPutStr)
import Text.Printf (printf, hPrintf) import Text.Printf (printf, hPrintf)
import Data.Proxy (Proxy(..)) import Data.Proxy (Proxy(..))
import Data.Monoid (Endo(..)) import Data.Monoid (Endo(..))
import Debug.Trace (trace)
import Lens.Micro import Lens.Micro
import Lens.Micro.TH import Lens.Micro.TH
import Data.Pretty import Data.Pretty