diff options
author | Adam Vogt <vogt.adam@gmail.com> | 2010-11-16 00:26:54 +0100 |
---|---|---|
committer | Adam Vogt <vogt.adam@gmail.com> | 2010-11-16 00:26:54 +0100 |
commit | 790fd3ad02aa70296ee458a02193154c899f6886 (patch) | |
tree | b3186ebf259a64f5c691b4fa8391ea2e48300127 /XMonad/Util/CustomKeys.hs | |
parent | f0088e4fa88da36624e3b8fd11b8e95eebfc9fe3 (diff) | |
download | XMonadContrib-790fd3ad02aa70296ee458a02193154c899f6886.tar.gz XMonadContrib-790fd3ad02aa70296ee458a02193154c899f6886.tar.xz XMonadContrib-790fd3ad02aa70296ee458a02193154c899f6886.zip |
Compatibility with mtl-1 and mtl-2
Ignore-this: 4fb7f279365992fe9e73388b0f4001ac
darcs-hash:20101115232654-1499c-411b53c153acbcbf791150e3923a754abe530202.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Util/CustomKeys.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Util/CustomKeys.hs b/XMonad/Util/CustomKeys.hs index 998f9bc..e2e73ef 100644 --- a/XMonad/Util/CustomKeys.hs +++ b/XMonad/Util/CustomKeys.hs @@ -77,7 +77,7 @@ customize :: XConfig l -> (XConfig Layout -> [(KeyMask, KeySym)]) -> (XConfig Layout -> [((KeyMask, KeySym), X ())]) -> Reader (XConfig Layout) (M.Map (KeyMask, KeySym) (X ())) -customize conf ds is = Reader (keys conf) >>= delete ds >>= insert is +customize conf ds is = asks (keys conf) >>= delete ds >>= insert is delete :: (MonadReader r m, Ord a) => (r -> [a]) -> M.Map a b -> m (M.Map a b) delete dels kmap = asks dels >>= return . foldr M.delete kmap |