diff options
author | Sergei Trofimovich <slyfox@gentoo.org> | 2012-12-22 21:18:10 +0000 |
---|---|---|
committer | Sergei Trofimovich <slyfox@gentoo.org> | 2012-12-22 21:18:10 +0000 |
commit | 30e911d2421bdae12f38da8865abe3e763e445ac (patch) | |
tree | 85515cd5697302897412210bec4408c9e6b1e6e1 /dev-haskell/c2hs/files | |
parent | Version bump. (diff) | |
download | gentoo-2-30e911d2421bdae12f38da8865abe3e763e445ac.tar.gz gentoo-2-30e911d2421bdae12f38da8865abe3e763e445ac.tar.bz2 gentoo-2-30e911d2421bdae12f38da8865abe3e763e445ac.zip |
Version bump.
(Portage version: 2.2.0_alpha149_p1/cvs/Linux x86_64, signed Manifest commit with key 611FF3AA)
Diffstat (limited to 'dev-haskell/c2hs/files')
-rw-r--r-- | dev-haskell/c2hs/files/c2hs-0.16.4-ghc-7.6.patch | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/dev-haskell/c2hs/files/c2hs-0.16.4-ghc-7.6.patch b/dev-haskell/c2hs/files/c2hs-0.16.4-ghc-7.6.patch new file mode 100644 index 000000000000..e6d808bb98a5 --- /dev/null +++ b/dev-haskell/c2hs/files/c2hs-0.16.4-ghc-7.6.patch @@ -0,0 +1,34 @@ +--- c2hs-0.16.4-orig/src/C2HS/Config.hs 2012-11-01 08:02:48.000000000 +1100 ++++ c2hs-0.16.4/src/C2HS/Config.hs 2012-11-03 12:12:15.754353409 +1100 +@@ -1,3 +1,4 @@ ++{-# LANGUAGE CPP #-} + -- -*-haskell-*- + -- ** @configure_input@ ** + -- =========================================================================== +--- c2hs-0.16.4-orig/src/Control/StateTrans.hs 2012-11-01 08:02:48.000000000 +1100 ++++ c2hs-0.16.4/src/Control/StateTrans.hs 2012-11-03 12:12:15.755353436 +1100 +@@ -1,3 +1,4 @@ ++{-# LANGUAGE CPP, ScopedTypeVariables #-} + -- The HiPar Toolkit: state transformer routines + -- + -- Author : Manuel M. T. Chakravarty +@@ -80,6 +81,10 @@ + -- Launchbury/Peyton-Jones' texts before entering. Otherwise, + -- your mental health my be in danger. You have been warned! + ++#if !MIN_VERSION_base(4,6,0) ++import Prelude hiding (catch) ++#endif ++import Control.Exception (catch, IOException) + + -- state transformer base and its monad operations + -- ----------------------------------------------- +@@ -298,7 +303,7 @@ + ioError err + Right _a -> return state + ) +- `catch` (\err -> let ++ `catch` (\(err :: IOException) -> let + STB handler' = handler err + in + handler' bs gs) |