Debug printing of GHC eventlogs

ppeventlog.hs

#!/usr/bin/env stack
-- stack --resolver lts-15.11 --install-ghc script --compile --package ghc-events

{-# language lambdacase #-}

import ghc.rts.events
import system.environment

main :: io ()
main = do
  [f] <- getargs
  readeventlogfromfile f >>= \case
    right l -> putstrln $ ppeventlog l
    left err -> putstrln err