2 files changed, 7 insertions, 3 deletions

diff --git a/hmatrix.cabal b/hmatrix.cabal
index c1b4e01..b283bca 100644
--- a/hmatrix.cabal
+++ b/hmatrix.cabal
@@ -1,5 +1,5 @@
 Name:               hmatrix
-Version:            0.5.1.0
+Version:            0.5.1.1
 License:            GPL
 License-file:       LICENSE
 Author:             Alberto Ruiz
@@ -11,7 +11,7 @@ Description:        This library provides a purely functional interface to basic
                     and other numerical computations, internally implemented using
                     GSL, BLAS and LAPACK.
 Category:           Math
-tested-with:        GHC ==6.10.1
+tested-with:        GHC ==6.10.2
 
 cabal-version:      >=1.2
 build-type:         Simple
@@ -109,6 +109,8 @@ library
     if flag(unsafe)
         cpp-options: -DUNSAFE
 
+    if impl(ghc < 6.10.2)
+        cpp-options: -DFINIT
 
     if flag(mkl)
       if arch(x86_64)
diff --git a/lib/Data/Packed/Internal/Common.hs b/lib/Data/Packed/Internal/Common.hs
index 46e9612..2310f5f 100644
--- a/lib/Data/Packed/Internal/Common.hs
+++ b/lib/Data/Packed/Internal/Common.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS_GHC -fglasgow-exts #-}
+{-# LANGUAGE CPP #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Data.Packed.Internal.Common
@@ -87,7 +87,9 @@ foreign import ccall "asm_finit" finit :: IO ()
 -- | check the error code
 check :: String -> IO CInt -> IO ()
 check msg f = do
+#if FINIT
     finit
+#endif
     err <- f
     when (err/=0) $ if err > 1024
                       then (error (msg++": "++errorCode err)) -- our errors