ref: 754c2a59b0a78f7aa23cc1166b2cfc18d7209bfe 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