aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorWirt Wolff <wirtwolff@gmail.com>2011-09-05 00:12:47 +0200
committerWirt Wolff <wirtwolff@gmail.com>2011-09-05 00:12:47 +0200
commitb8fd8eef3e2280dc94396694f01f2098f6012f93 (patch)
tree9fe79fac4199618997e7ce10b96dc820e667b8cd /XMonad
parent39f010d82d0292d9417a06abaf91dabb43ea3ef4 (diff)
downloadXMonadContrib-b8fd8eef3e2280dc94396694f01f2098f6012f93.tar.gz
XMonadContrib-b8fd8eef3e2280dc94396694f01f2098f6012f93.tar.xz
XMonadContrib-b8fd8eef3e2280dc94396694f01f2098f6012f93.zip
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
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Actions/FlexibleManipulate.hs3
1 files changed, 3 insertions, 0 deletions
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.-)