blob: 391387c6d66cfde8c0dec7d5098ccb5b5122f1b5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
import Data.Word
import Debug.Trace
main = do
traceEventIO "testing"
traceEventIO "%s" -- see #3874
traceEventIO $ replicate (maxSize + 1) 'A'
putStrLn $ traceEvent "one" "two"
putStrLn $ traceEventWith (show . length) "three"
maxSize :: Int
maxSize = fromIntegral (maxBound :: Word16)
|
