diff options
Diffstat (limited to 'community/haskell-dbus/dbus-0.4.patch')
-rw-r--r-- | community/haskell-dbus/dbus-0.4.patch | 60 |
1 files changed, 0 insertions, 60 deletions
diff --git a/community/haskell-dbus/dbus-0.4.patch b/community/haskell-dbus/dbus-0.4.patch deleted file mode 100644 index b983801cf..000000000 --- a/community/haskell-dbus/dbus-0.4.patch +++ /dev/null @@ -1,60 +0,0 @@ -diff -aru DBus-0.4/DBus/Internal.hsc DBus-0.4.new/DBus/Internal.hsc ---- DBus-0.4/DBus/Internal.hsc 2008-09-08 01:28:20.000000000 +0200 -+++ DBus-0.4.new/DBus/Internal.hsc 2011-02-15 08:07:45.222787595 +0100 -@@ -9,7 +9,7 @@ - - module DBus.Internal where - --import Control.Exception (throwDyn) -+import Control.Exception (throwIO) - import Control.Monad (when) - import DBus (Error(..)) - import Foreign -@@ -57,6 +57,6 @@ - else do name <- #{peek DBusError, name} err >>= peekCString - msg <- #{peek DBusError, message} err >>= peekCString - error_free err -- throwDyn $ Error name msg -+ throwIO $ Error name msg - - -- vim: set ts=2 sw=2 tw=72 et ft=haskell : -diff -aru DBus-0.4/DBus.cabal DBus-0.4.new/DBus.cabal ---- DBus-0.4/DBus.cabal 2008-09-08 01:28:20.000000000 +0200 -+++ DBus-0.4.new/DBus.cabal 2011-02-15 08:09:19.376168928 +0100 -@@ -11,7 +11,8 @@ - description: Bindings for the D-Bus API. - For details on D-Bus, see the D-Bus wiki at: - <http://www.freedesktop.org/wiki/Software/dbus> --build-depends: base, bytestring -+build-depends: base >= 4, bytestring -+pkgconfig-depends: dbus-1 - build-type: Configure - extensions: ForeignFunctionInterface, OverlappingInstances, - ExistentialQuantification -diff -aru DBus-0.4/DBus.hsc DBus-0.4.new/DBus.hsc ---- DBus-0.4/DBus.hsc 2008-09-08 01:28:20.000000000 +0200 -+++ DBus-0.4.new/DBus.hsc 2011-02-15 08:08:49.974771904 +0100 -@@ -2,7 +2,7 @@ - -- Copyright (C) 2006 Evan Martin <martine@danga.com> - - #define DBUS_API_SUBJECT_TO_CHANGE --#include "dbus/dbus.h" -+#include <dbus/dbus.h> - - module DBus ( - module DBus.Shared, -@@ -24,6 +24,7 @@ - - import DBus.Shared - import Data.Typeable (Typeable(..), mkTyConApp, mkTyCon) -+import Control.Exception - - -- |'Error's carry a name (like \"org.freedesktop.dbus.Foo\") and a - -- message (like \"connection failed\"). -@@ -32,5 +33,6 @@ - typeOf _ = mkTyConApp (mkTyCon "DBus.Error") [] - instance Show Error where - show (Error name message) = "D-Bus Error (" ++ name ++ "): " ++ message -+instance Exception Error - - -- vim: set ts=2 sw=2 tw=72 et ft=haskell : |