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
import Control.Exception (assert)
import Distribution.Compat.Stack
-- | 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)
debugAssert :: WithCallStack (Bool -> a -> a)
debugAssert = assert
debugAssert :: Bool -> a -> a
debugAssert _ = id
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