Add traceEvent :: String -> IO ()