From b8fd8eef3e2280dc94396694f01f2098f6012f93 Mon Sep 17 00:00:00 2001 From: Wirt Wolff Date: Mon, 5 Sep 2011 00:12:47 +0200 Subject: X.A.FlexibleManipulate: Set expected fixities for Pnt math operators Ignore-this: 9ae239c4120eae866983ecfe5cc59894 Restores broken mouseWindow discrete linear and resize to 0.9.1 behavior darcs-hash:20110904221247-18562-80c10d38b3c902461b48e1fa5e153d80acb260e5.gz --- XMonad/Actions/FlexibleManipulate.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'XMonad/Actions/FlexibleManipulate.hs') diff --git a/XMonad/Actions/FlexibleManipulate.hs b/XMonad/Actions/FlexibleManipulate.hs index 80ca16c..e9119e2 100644 --- a/XMonad/Actions/FlexibleManipulate.hs +++ b/XMonad/Actions/FlexibleManipulate.hs @@ -123,6 +123,9 @@ zipP f (ax,ay) (bx,by) = (f ax bx, f ay by) minP :: Ord a => (a,a) -> (a,a) -> (a,a) minP = zipP min +infixl 6 +, - +infixl 7 *, / + (+), (-), (*) :: (P.Num a) => (a,a) -> (a,a) -> (a,a) (+) = zipP (P.+) (-) = zipP (P.-) -- cgit v1.2.3