diff options
Diffstat (limited to 'graphics/hs-HGL/files/patch-Graphics__HGL__Run.hs')
-rw-r--r-- | graphics/hs-HGL/files/patch-Graphics__HGL__Run.hs | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/graphics/hs-HGL/files/patch-Graphics__HGL__Run.hs b/graphics/hs-HGL/files/patch-Graphics__HGL__Run.hs new file mode 100644 index 000000000000..5e29c6df339a --- /dev/null +++ b/graphics/hs-HGL/files/patch-Graphics__HGL__Run.hs @@ -0,0 +1,20 @@ +--- ./Graphics/HGL/Run.hs.orig 2009-11-03 15:50:11.000000000 +0100 ++++ ./Graphics/HGL/Run.hs 2013-05-01 01:51:50.000000000 +0200 +@@ -24,7 +24,7 @@ + import Graphics.HGL.Internals.Utilities (safeTry) + import Control.Concurrent (forkIO, yield) + import Data.IORef( newIORef, readIORef, writeIORef ) +-import System.IO.Error (try) ++import System.IO.Error (tryIOError) + #endif + + ---------------------------------------------------------------- +@@ -60,7 +60,7 @@ + beginGraphics + quit <- newIORef False + safeTry $ do +- forkIO (try m >> writeIORef quit True) ++ forkIO (tryIOError m >> writeIORef quit True) + yield + handleEvents (readIORef quit) + endGraphics |