plutils

programming language utilities
git clone git://git.rr3.xyz/plutils
Log | Files | Refs | Submodules

Util.hs (178B)

      1 module PlUtils.Util (
      2     assert,
      3 ) where
      4 
      5 import Control.Exception hiding (assert)
      6 
      7 assert :: Bool -> String -> a -> a
      8 assert b s a = if b then a else throw (AssertionFailed s)