diff options
author | Alberto Ruiz <aruiz@um.es> | 2009-04-10 10:42:56 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2009-04-10 10:42:56 +0000 |
commit | da07df1ef6edc8638c1caccfcff868d9a2fadca0 (patch) | |
tree | 1bf8ad453e56c4dd1b2ef830165eacce14dc9ebe /lib/Data | |
parent | bc3a6b443e23a7acff4e8e79daf34fadaf5dfe9c (diff) |
finit not required for ghc >= 6.10.2
Diffstat (limited to 'lib/Data')
-rw-r--r-- | lib/Data/Packed/Internal/Common.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 @@ | |||
1 | {-# OPTIONS_GHC -fglasgow-exts #-} | 1 | {-# LANGUAGE CPP #-} |
2 | ----------------------------------------------------------------------------- | 2 | ----------------------------------------------------------------------------- |
3 | -- | | 3 | -- | |
4 | -- Module : Data.Packed.Internal.Common | 4 | -- Module : Data.Packed.Internal.Common |
@@ -87,7 +87,9 @@ foreign import ccall "asm_finit" finit :: IO () | |||
87 | -- | check the error code | 87 | -- | check the error code |
88 | check :: String -> IO CInt -> IO () | 88 | check :: String -> IO CInt -> IO () |
89 | check msg f = do | 89 | check msg f = do |
90 | #if FINIT | ||
90 | finit | 91 | finit |
92 | #endif | ||
91 | err <- f | 93 | err <- f |
92 | when (err/=0) $ if err > 1024 | 94 | when (err/=0) $ if err > 1024 |
93 | then (error (msg++": "++errorCode err)) -- our errors | 95 | then (error (msg++": "++errorCode err)) -- our errors |