Permalink
Browse files

Remove debug output in test suite.

  • Loading branch information...
1 parent 57bf64b commit 7c34d7067dbb0c0688c164ba39119ffb478c37d8 @nominolo committed May 10, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 test/TestSuite.hs
View
@@ -84,13 +84,13 @@ test_recomp01 = run $ do
(withSession (FileConfig tmpfile []) $ \sid -> do
notes <- sessionNotes sid
io $ MS.size notes @?= 1
- io $ print notes
+ --io $ print notes
io $ threadDelay 1000000 -- make sure we get a different timestamp
io $ hSeek h AbsoluteSeek 0 >> hPutStr h contents1 >> hFlush h
fileModified sid tmpfile
notes2 <- sessionNotes sid
io $ MS.size notes2 @?= 0
- io $ print notes2
+ --io $ print notes2
)
`gfinally` io (hClose h)
where

0 comments on commit 7c34d70

Please sign in to comment.