-- | Like the function 'error', but appends a stack trace to the error -- message if one is available. errorWithStackTrace :: String -> a