testsuite/tests/rts/traceEvent.hs


1
2
3
4
5
6
7
8
9
10

import Data.Word
import Debug.Trace

main = do
  traceEventIO "testing"
  traceEventIO "%s" -- see #3874
  traceEventIO $ replicate (maxSize + 1) 'A'

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