initColor :: Display -> String -> IO DynPixel
initColor dpy c = handle black $ initColor' dpy c
  where
    black :: SomeException -> IO DynPixel
    black = const . return $ DynPixel False (blackPixel dpy $ defaultScreen dpy)
initColor :: Display -> String -> IO DynPixel
initColor dpy c = handle black $ initColor' dpy c
  where
    black :: SomeException -> IO DynPixel
    black = const . return $ DynPixel False (blackPixel dpy $ defaultScreen dpy)
initColor dpy c = handle black $ initColor' dpy c
  where
    black :: SomeException -> IO DynPixel
    black = const . return $ DynPixel False (blackPixel dpy $ defaultScreen dpy)