% (c) The University of Glasgow, 1997-2006
%
\begin{code}
+{-# LANGUAGE BangPatterns #-}
{-# OPTIONS -fno-warn-unused-imports #-}
-- XXX GHC 6.9 seems to be confused by unpackCString# being used only in
-- a RULE
import Data.Maybe ( isJust )
import Data.Char ( ord )
-#if __GLASGOW_HASKELL__ >= 611
import GHC.IO ( IO(..) )
-#else
-import GHC.IOBase ( IO(..) )
-#endif
import GHC.Ptr ( Ptr(..) )
#if defined(__GLASGOW_HASKELL__)