ref: ccd5a588d682250f0173bbe6b59c4dcf0851047a dir: /ghc/Control/Exn.hs/
module Control.Exn(Exn, exnToString) where import Control.Exception type Exn = SomeException exnToString :: Exn -> String exnToString = trunc . show where trunc = head . lines