Commit e15b2899 authored by kristenk's avatar kristenk Committed by Mikhail Glushenkov
Browse files

Fix redundant constraint warning.

parent 2f9e01d4
......@@ -3,16 +3,16 @@ module Distribution.Client.Utils.Assertion (debugAssert) where
#ifdef DEBUG_ASSERTIONS
import Control.Exception (assert)
#endif
import Distribution.Compat.Stack
#endif
-- | Like 'assert', but only enabled with -fdebug-assertions. This function can
-- be used for expensive assertions that should only be turned on during testing
-- or debugging.
debugAssert :: WithCallStack (Bool -> a -> a)
#ifdef DEBUG_ASSERTIONS
debugAssert :: WithCallStack (Bool -> a -> a)
debugAssert = assert
#else
debugAssert :: Bool -> a -> a
debugAssert _ = id
#endif
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment