HGL 3.2.0.2 → 3.2.0.4

raw patch · 3 files changed

+7/−12 lines, 3 filesdep ~basenew-uploader

Dependency ranges changed: base

Files

• Graphics/HGL/Internals/Utilities.hs +2/−7
• Graphics/HGL/Run.hs +2/−2
• HGL.cabal +3/−3

@@ -20,7 +20,7 @@         modMVar, modMVar_ 	) where -import qualified Control.Exception 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@@ -33,13 +33,8 @@ 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   ----------------------------------------------------------------

@@ -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 Control.Exception(try,SomeException) #endif  ----------------------------------------------------------------@@ -60,7 +60,7 @@   beginGraphics   quit <- newIORef False   safeTry $ do-    forkIO (try m >> writeIORef quit True)+    forkIO ( (try m :: IO (Either SomeException ())) >> writeIORef quit True)     yield     handleEvents (readIORef quit)   endGraphics

@@ -1,9 +1,9 @@ name:		HGL-version:	3.2.0.2+version:	3.2.0.4 license:	BSD3 license-file:	LICENSE author: 	Alastair Reid-maintainer:	Christoph Lueth <christoph.lueth@dfki.de> +maintainer:	Christoph Lueth <christoph.lueth@dfki.de>, Alan Hawkins <hawk.alan@gmail.com> category:	Graphics synopsis:	A simple graphics library based on X11 or Win32 description:@@ -22,7 +22,7 @@  library   if flag(split-base)-    build-depends: base >= 3 && < 4, array+    build-depends: base >= 3 && < 10, array   else     build-depends: base < 2   exposed-modules: