diff options
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Actions/FlexibleManipulate.hs | 3 |
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.-) |