From d9b24473ce65c6ce7f5bdea8c7d6eee07a62461e Mon Sep 17 00:00:00 2001
From: Reto Hablützel <rethab@rethab.ch>
Date: Sat, 9 Aug 2014 21:33:10 +0200
Subject: hlint refactorings

---
 src/ColorCache.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/ColorCache.hs')

diff --git a/src/ColorCache.hs b/src/ColorCache.hs
index e9c5810..3f8d7b4 100644
--- a/src/ColorCache.hs
+++ b/src/ColorCache.hs
@@ -35,10 +35,10 @@ import Graphics.X11.Xlib
 data DynPixel = DynPixel Bool Pixel
 
 initColor :: Display -> String -> IO DynPixel
-initColor dpy c = handle black $ (initColor' dpy c)
+initColor dpy c = handle black $ initColor' dpy c
   where
     black :: SomeException -> IO DynPixel
-    black = (const . return $ DynPixel False (blackPixel dpy $ defaultScreen dpy))
+    black = const . return $ DynPixel False (blackPixel dpy $ defaultScreen dpy)
 
 type ColorCache = [(String, Color)]
 {-# NOINLINE colorCache #-}
-- 
cgit v1.2.3