xturtle 0.1.11 → 0.1.12

raw patch · 2 files changed

+5/−2 lines, 2 files

Files

• src/Graphics/X11/Turtle/XTools.hs +4/−1
• xturtle.cabal +1/−1

@@ -1,3 +1,5 @@+{-# LANGUAGE ScopedTypeVariables #-}+ module Graphics.X11.Turtle.XTools( 	-- * types 	Display,@@ -90,6 +92,7 @@ import Foreign.Ptr(Ptr) import Foreign.Storable(peek) import Foreign.Marshal.Array(advancePtr)+import Control.Exception(catch, SomeException)  -------------------------------------------------------------------------------- @@ -143,7 +146,7 @@ setForegroundXT dpy gc (ColorName cn) = let 	cm = defaultColormap dpy $ defaultScreen dpy in 	(allocNamedColor dpy cm cn >>= setForeground dpy gc . color_pixel . fst)-		`catch` const (putStrLn "no such color")+		`catch` \(_ :: SomeException) -> (putStrLn "no such color")  copyAreaXT :: Display -> Drawable -> Drawable -> GC -> 	Dimension -> Dimension -> IO ()

@@ -2,7 +2,7 @@ cabal-version:	>= 1.6  name:		xturtle-version:	0.1.11+version:	0.1.12 stability:	experimental author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp> maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>