if flag(stage1)
Include-Dirs: stage1
- if impl(ghc < 6.9)
- Build-Depends: extensible-exceptions
- Extensions: PatternSignatures
else
if flag(stage2)
Include-Dirs: stage2
import MonadUtils
import Control.Monad ( zipWithM )
import Data.List
-#if __GLASGOW_HASKELL__ > 609
import Data.Data ( Data, Typeable )
-#else
-import Data.Generics ( Data, Typeable )
-#endif
\end{code}
-----------------------------------------------------
import Prelude hiding (catch)
-#if __GLASGOW_HASKELL__ < 609
-import Control.Exception.Extensible as Control.Exception
-#else
import Control.Exception
-#endif
catchIO :: IO a -> (IOException -> IO a) -> IO a
catchIO = catch
import Data.Bits
import Data.Word ( Word8 )
-#if __GLASGOW_HASKELL__ > 609
import Data.Data
-#else
-import Data.Generics
-#endif
-- | Represents a serialized value of a particular type. Attempts can be made to deserialize it at certain types