1 files changed, 7 insertions, 0 deletions

diff --git a/packages/base/src/Numeric/LinearAlgebra/Util.hs b/packages/base/src/Numeric/LinearAlgebra/Util.hs
index 47b1090..aee21b8 100644
--- a/packages/base/src/Numeric/LinearAlgebra/Util.hs
+++ b/packages/base/src/Numeric/LinearAlgebra/Util.hs
@@ -37,6 +37,7 @@ module Numeric.LinearAlgebra.Util(
     mnorm_1, mnorm_2, mnorm_0, mnorm_Inf,
     unitary,
     mt,
+    (~!~),
     pairwiseD2,
     rowOuters,
     null1,
@@ -65,6 +66,7 @@ import Numeric.Matrix()
 import Numeric.Vector()
 import Numeric.LinearAlgebra.Random
 import Numeric.LinearAlgebra.Util.Convolution
+import Control.Monad(when)
 
 type ℝ = Double
 type ℕ = Int
@@ -385,3 +387,8 @@ vtrans p m | r == 0 = fromBlocks . map (map asColumn . takesV (replicate q p)) .
   where
     (q,r) = divMod (rows m) p
 
+--------------------------------------------------------------------------------
+
+infixl 0 ~!~
+c ~!~ msg = when c (error msg)
+