From 84323448ca9526b91181d361efaa506c67f9813e Mon Sep 17 00:00:00 2001 From: Daniel Wagner 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/Layout/MouseResizableTile.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad/Layout') 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