save work

1 files changed, 6 insertions, 0 deletions

diff --git a/lib/GSL.hs b/lib/GSL.hs
index d65f8ff..f04cf26 100644
--- a/lib/GSL.hs
+++ b/lib/GSL.hs
@@ -20,6 +20,7 @@ module GSL (
 , module GSL.Minimization
 , module GSL.Special
 , module Complex
+, setErrorHandlerOff
 ) where
 
 import GSL.Integration
@@ -30,3 +31,8 @@ import GSL.Polynomials
 import GSL.Minimization
 import Complex
 import GSL.Special
+
+
+-- | This action removes the GSL default error handler (which aborts the program), so that
+-- GSL errors can be handled by Haskell (using Control.Exception) and ghci doesn't abort.
+foreign import ccall "GSL/gsl-aux.h no_abort_on_error" setErrorHandlerOff :: IO ()