traceEvent.hs 210 Bytes
Newer Older
Mitsutoshi Aoe's avatar
Mitsutoshi Aoe committed
1
import Data.Word
2
import Debug.Trace
3 4

main = do
5 6
  traceEventIO "testing"
  traceEventIO "%s" -- see #3874
Mitsutoshi Aoe's avatar
Mitsutoshi Aoe committed
7 8 9 10
  traceEventIO $ replicate (maxSize + 1) 'A'

maxSize :: Int
maxSize = fromIntegral (maxBound :: Word16)