{-# LANGUAGE CPP #-}

module MetaBrush.Assert
  ( assert )
  where

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

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

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