From 03cdb5a152eeb58204dfcac23f64a79646bcf689 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@ing.unitn.it>
Date: Fri, 25 Sep 2009 21:21:59 +0200
Subject: fix a few warnings, clean up some recently added stuff, and restrict
 parsec to <3

Ignore-this: df12dd4ab0ccec4de18b15e77a6150c484bd5ec5
Parsec 3 adds Applicative and Alternative instances which conflict
with the ones needed for version 2 (no other reasons I'm aware of
bind us to parsec-2).

darcs-hash:20090925192159-d6583-efb71dbd01a6d166fc66f8004889f020382280fc.gz
---
 XUtil.hsc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XUtil.hsc')

diff --git a/XUtil.hsc b/XUtil.hsc
index 4d9e707..85d3dd3 100644
--- a/XUtil.hsc
+++ b/XUtil.hsc
@@ -28,6 +28,7 @@ module XUtil
     , io
     , fi
     , withColors
+    , DynPixel(..)
     ) where
 
 import Control.Concurrent
@@ -213,7 +214,6 @@ initColor' dpy c = do
 
 withColors :: MonadIO m => Display -> [String] -> ([Pixel] -> m a) -> m a
 withColors d cs f = do
-  let cmap = defaultColormap d (defaultScreen d)
   ps <- mapM (io . initColor d) cs
   f $ map pixel ps
 
-- 
cgit v1.2.3