From 84323448ca9526b91181d361efaa506c67f9813e Mon Sep 17 00:00:00 2001
From: Daniel Wagner <daniel@wagner-home.com>
Date: Tue, 15 Nov 2011 03:26:50 +0100
Subject: get ready for GHC 7.4: Num a no longer implies (Eq a, Show a)

Ignore-this: faa34d69ddd27b98c6507740b42c9e97

darcs-hash:20111115022650-76d51-10a2e23210b65268ffa3aa606ebba72b6986e77e.gz
---
 XMonad/Actions/GridSelect.hs        | 4 ++--
 XMonad/Hooks/DebugKeyEvents.hs      | 2 +-
 XMonad/Layout/MouseResizableTile.hs | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/XMonad/Actions/GridSelect.hs b/XMonad/Actions/GridSelect.hs
index 66aa952..afc37ae 100644
--- a/XMonad/Actions/GridSelect.hs
+++ b/XMonad/Actions/GridSelect.hs
@@ -251,7 +251,7 @@ liftX = TwoD . lift
 evalTwoD ::  TwoD a1 a -> TwoDState a1 -> X a
 evalTwoD m s = flip evalStateT s $ unTwoD m
 
-diamondLayer :: (Enum b', Num b') => b' -> [(b', b')]
+diamondLayer :: (Enum a, Num a, Eq a) => a -> [(a, a)]
 diamondLayer 0 = [(0,0)]
 diamondLayer n =
   -- tr = top right
@@ -260,7 +260,7 @@ diamondLayer n =
       r  = tr ++ (map (\(x,y) -> (y,-x)) tr)
   in r ++ (map (negate *** negate) r)
 
-diamond :: (Enum a, Num a) => [(a, a)]
+diamond :: (Enum a, Num a, Eq a) => [(a, a)]
 diamond = concatMap diamondLayer [0..]
 
 diamondRestrict :: Integer -> Integer -> Integer -> Integer -> [(Integer, Integer)]
diff --git a/XMonad/Hooks/DebugKeyEvents.hs b/XMonad/Hooks/DebugKeyEvents.hs
index edacb6c..af8184c 100644
--- a/XMonad/Hooks/DebugKeyEvents.hs
+++ b/XMonad/Hooks/DebugKeyEvents.hs
@@ -81,7 +81,7 @@ debugKeyEvents (KeyEvent {ev_event_type = t, ev_state = m, ev_keycode = code})
 debugKeyEvents _ = return (All True)
 
 -- | Convenient showHex variant
-hex :: Integral n => n -> String
+hex :: (Integral n, Show n) => n -> String
 hex v = "0x" ++ showHex v ""
 
 -- | Convert a modifier mask into a useful string
diff --git a/XMonad/Layout/MouseResizableTile.hs b/XMonad/Layout/MouseResizableTile.hs
index 4645652..a9bc36b 100644
--- a/XMonad/Layout/MouseResizableTile.hs
+++ b/XMonad/Layout/MouseResizableTile.hs
@@ -225,7 +225,7 @@ modifySlave state delta =
                                             (max 0 (min 1 (oldFraction + delta))) }
                 else state
 
-replaceAtPos :: (Num t) => Rational -> [Rational] -> t -> Rational -> [Rational]
+replaceAtPos :: (Num t, Eq t) => Rational -> [Rational] -> t -> Rational -> [Rational]
 replaceAtPos _ [] 0 x' = [x']
 replaceAtPos d [] pos x' = d : replaceAtPos d [] (pos - 1) x'
 replaceAtPos _ (_:xs) 0 x' = x' : xs
-- 
cgit v1.2.3