From 685d67d19d2e94fc94ed7334e5e7ab19454426d7 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Mon, 28 Mar 2022 23:27:45 -0600 Subject: Fix things that Hlint is complaining about. --- src/Internal/Submap.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Internal/Submap.hs') diff --git a/src/Internal/Submap.hs b/src/Internal/Submap.hs index e5968ff..c51f9b6 100644 --- a/src/Internal/Submap.hs +++ b/src/Internal/Submap.hs @@ -28,7 +28,7 @@ mapNextString fn = do if isModifierKey keysym then nextkey - else return $ (m, str) + else return (m, str) io $ ungrabKeyboard d currentTime @@ -63,7 +63,7 @@ nextMotion = do return ret submapButtonsWithKey :: - ((ButtonMask, Button) -> Window -> X ()) -> (Map (ButtonMask, Button) (Window -> X ())) -> Window -> X () + ((ButtonMask, Button) -> Window -> X ()) -> Map (ButtonMask, Button) (Window -> X ()) -> Window -> X () submapButtonsWithKey defaultAction actions window = do arg <- nextButton -- cgit