remove traces

HigherOrderCO · Oct 30, 2024 · 8d3d62d · 8d3d62d
1 parent 8fb14f6
commit 8d3d62d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Kind/CompileJS.hs b/src/Kind/CompileJS.hs
@@ -315,7 +315,7 @@ fnToJS book fnName (getArguments -> (fnArgs, fnBody)) = do
 
   -- Inliner
   red :: CT -> CT
-  red tm = trace ("red " ++ showCT tm 0) $ go tm where
+  red tm = {-trace ("red " ++ showCT tm 0) $-} go tm where
     go (CApp fun arg) = app (red fun) arg
     go (CRef nam)     = ref nam    
     go val            = val
@@ -330,7 +330,7 @@ fnToJS book fnName (getArguments -> (fnArgs, fnBody)) = do
   -- create an aux function called "inl :: String -> Bool" after it
   ref :: String -> CT
   ref nam
-    | inl nam   = trace ("inlined:"++nam) $ red (fromJust (M.lookup nam book))
+    | inl nam   = {-trace ("inlined:"++nam) $-} red (fromJust (M.lookup nam book))
     | otherwise = CRef nam
 
   inl :: String -> Bool