import GHC.Err
import GHC.Base
#elif defined(__NHC__)
+import NHC.FFI ( FinalizerPtr, CInt(..) )
import IO ( bracket )
#else
import Control.Exception ( bracket )
import Hugs.ForeignPtr ( FinalizerPtr )
#endif
+
-- exported functions
-- ------------------