Remove unneeded argument

This commit is contained in:
Matus Goljer 2016-10-16 16:36:18 +02:00
parent 1553d81ce7
commit 444986d993

View File

@ -59,7 +59,7 @@ For detailed instructions on editing your key bindings, see
-- corresponding action, or does nothing if the key is not found in
-- the map.
submap :: M.Map (KeyMask, KeySym) (X ()) -> X ()
submap keys = submapDefault (return ()) keys
submap = submapDefault (return ())
-- | Like 'submap', but executes a default action if the key did not match.
submapDefault :: X () -> M.Map (KeyMask, KeySym) (X ()) -> X ()