diff options
Diffstat (limited to 'dev-haskell/wxcore/files/wxcore-0.13.2.3-ghc-7.6.patch')
-rw-r--r-- | dev-haskell/wxcore/files/wxcore-0.13.2.3-ghc-7.6.patch | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/dev-haskell/wxcore/files/wxcore-0.13.2.3-ghc-7.6.patch b/dev-haskell/wxcore/files/wxcore-0.13.2.3-ghc-7.6.patch deleted file mode 100644 index 3d5adbea0904..000000000000 --- a/dev-haskell/wxcore/files/wxcore-0.13.2.3-ghc-7.6.patch +++ /dev/null @@ -1,42 +0,0 @@ ---- wxcore-0.13.2.3-orig/src/haskell/Graphics/UI/WXCore/Events.hs 2012-09-30 19:56:52.000000000 +1000 -+++ wxcore-0.13.2.3/src/haskell/Graphics/UI/WXCore/Events.hs 2013-01-13 10:08:50.415293002 +1100 -@@ -1,4 +1,4 @@ --{-# LANGUAGE ForeignFunctionInterface #-} -+{-# LANGUAGE CPP, ForeignFunctionInterface #-} - ----------------------------------------------------------------------------------------- - {-| Module : Events - Copyright : (c) Daan Leijen 2003 -@@ -241,6 +241,9 @@ - import Foreign.Marshal.Alloc - import Foreign.Marshal.Array - import Foreign.Marshal.Utils -+#if (__GLASGOW_HASKELL__>=705) -+import Foreign.C.Types(CInt(..)) -+#endif - - import Data.Char ( chr ) -- used in stc - import Data.Maybe ( fromMaybe, fromJust ) ---- wxcore-0.13.2.3-orig/src/haskell/Graphics/UI/WXCore/WxcTypes.hs 2012-09-30 19:56:52.000000000 +1000 -+++ wxcore-0.13.2.3/src/haskell/Graphics/UI/WXCore/WxcTypes.hs 2013-01-13 10:08:50.420293137 +1100 -@@ -142,7 +142,12 @@ - - import Data.Int - import Data.Word -+#ifdef MIN_VERSION_base(4,5,0) -+import Debug.Trace (traceIO) -+#else - import Debug.Trace (putTraceMsg) -+#define traceIO putTraceMsg -+#endif - - import Graphics.UI.WXCore.WxcObject - import Graphics.UI.WXCore.WxcClassTypes -@@ -853,7 +858,7 @@ - withCharResult io - = do x <- io - if (x < 0) -- then do putTraceMsg ("Recieved negative unicode: " ++ (show x)) -+ then do traceIO ("Recieved negative unicode: " ++ (show x)) - return '\n' - else return (fromCWchar x) - |