Changeset 11917 for third-party

Timestamp:

08/04/06 10:51:55 (2 years ago)

Author:

cmarcelo

Message:

* Just hides some debug messages.

Location:

third-party/HsJudy/Judy

Files:

• Map2.hs (modified) (1 diff)
• MapSL.hs (modified) (2 diffs)

third-party/HsJudy/Judy/Map2.hs

@@ -73 +73 @@
         mapM_ GC.freeRef es
     v <- judyLFreeArray j judyError
-    putStrLn $ "\n(FINALIZER CALLED FOR "++ (show j) ++  ": " ++ (show v) ++ ")\n"
+    --putStrLn $ "\n(FINALIZER CALLED FOR "++ (show j) ++  ": " ++ (show v) ++ ")\n"
     return ()
 

third-party/HsJudy/Judy/MapSL.hs

@@ -62 +62 @@
 finalize :: Bool -> Ptr JudySL -> IO ()
 finalize need j = do
-    putStrLn $ show $ need
+    --putStrLn $ show $ need
     when need $ do
         j_ <- newForeignPtr_ j
@@ -68 +68 @@
         mapM_ GC.freeRef es
     v <- judySLFreeArray j judyError
-    putStrLn $ "\n(FINALIZER CALLED FOR "++ (show j) ++  ": " ++ (show v) ++ ")\n"
+    --putStrLn $ "\n(FINALIZER CALLED FOR "++ (show j) ++  ": " ++ (show v) ++ ")\n"
     return ()