import "Logging" import "Prelude" main = () where info "Something happened." print (read "XX" :: Double) `catch` (\(e :: Throwable) -> errorE "Something bad happened." e) -- ()