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

1 files changed, 1 insertions, 1 deletions

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