diff options
author | Gabor Pali <pgj@FreeBSD.org> | 2013-06-04 18:53:40 +0000 |
---|---|---|
committer | Gabor Pali <pgj@FreeBSD.org> | 2013-06-04 18:53:40 +0000 |
commit | 109269205e521bb1d2d87678a391e5adefff88d6 (patch) | |
tree | 93f1f9278a9a48902904b7ff4a5ce711c10efe08 /graphics/hs-HGL/files/patch-Graphics__HGL__Internals__Utilities.hs | |
parent | ad7295cafd0e46ece6fcbf594ef39a767c296d0e (diff) | |
download | ports-109269205e521bb1d2d87678a391e5adefff88d6.tar.gz ports-109269205e521bb1d2d87678a391e5adefff88d6.zip |
Notes
Diffstat (limited to 'graphics/hs-HGL/files/patch-Graphics__HGL__Internals__Utilities.hs')
-rw-r--r-- | graphics/hs-HGL/files/patch-Graphics__HGL__Internals__Utilities.hs | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/graphics/hs-HGL/files/patch-Graphics__HGL__Internals__Utilities.hs b/graphics/hs-HGL/files/patch-Graphics__HGL__Internals__Utilities.hs index 0b03fe9d5ceb..d09a4cb11689 100644 --- a/graphics/hs-HGL/files/patch-Graphics__HGL__Internals__Utilities.hs +++ b/graphics/hs-HGL/files/patch-Graphics__HGL__Internals__Utilities.hs @@ -1,11 +1,27 @@ --- ./Graphics/HGL/Internals/Utilities.hs.orig 2009-11-03 15:50:11.000000000 +0100 -+++ ./Graphics/HGL/Internals/Utilities.hs 2011-03-13 18:31:25.754332789 +0100 ++++ ./Graphics/HGL/Internals/Utilities.hs 2013-05-01 01:30:47.000000000 +0200 @@ -20,7 +20,7 @@ modMVar, modMVar_ ) where -import qualified Control.Exception as E (bracket, try, IOException, tryJust, ioErrors) -+import qualified Control.OldException as E (bracket, try, IOException, tryJust, ioErrors) ++import qualified Control.Exception as E (bracket, try, IOException, tryJust) import Control.Concurrent( MVar, takeMVar, putMVar ) bracket :: IO a -> (a -> IO b) -> (a -> IO c) -> IO c +@@ -32,15 +32,7 @@ + + type Exception = E.IOException + safeTry :: IO a -> IO (Either Exception a) +- +-#if __GLASGOW_HASKELL >= 610 +--- ghc-6.10 + safeTry = E.try +-#else +--- ghc 6.8 (and below?) +-safeTry = E.tryJust E.ioErrors +-#endif +- + + ---------------------------------------------------------------- + -- Utilities |