metabrush/src/app/MetaBrush/Assert.hs

{-# LANGUAGE CPP #-}

module MetaBrush.Assert
  ( assert )
  where

-- base
#ifdef ASSERTS
import Control.Exception
  ( AssertionFailed(..), throw )
#endif

--------------------------------------------------------------------------------

{-# INLINE assert #-}
assert :: String -> a -> a
#ifdef ASSERTS
assert message _ = throw ( AssertionFailed message )
#else
assert _ a = a
#endif