diff options
Diffstat (limited to 'libraries/base/GHC/Base.hs')
| -rw-r--r-- | libraries/base/GHC/Base.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libraries/base/GHC/Base.hs b/libraries/base/GHC/Base.hs index 89ec703163..92a1ac39f7 100644 --- a/libraries/base/GHC/Base.hs +++ b/libraries/base/GHC/Base.hs @@ -187,8 +187,8 @@ not True = False (&&) True True = True otherwise = True -build = error "urk" -foldr = error "urk" +build = errorWithoutStackTrace "urk" +foldr = errorWithoutStackTrace "urk" #endif -- | The 'Maybe' type encapsulates an optional value. A value of type @@ -498,7 +498,7 @@ class Applicative m => Monad m where -- details). The definition here will be removed in a future -- release. fail :: String -> m a - fail s = error s + fail s = errorWithoutStackTrace s {- Note [Recursive bindings for Applicative/Monad] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |