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/RebindKeys.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/Internal/RebindKeys.hs') diff --git a/src/Internal/RebindKeys.hs b/src/Internal/RebindKeys.hs index 7c5d47c..38af754 100644 --- a/src/Internal/RebindKeys.hs +++ b/src/Internal/RebindKeys.hs @@ -7,7 +7,6 @@ module Internal.RebindKeys where import XMonad import Text.Printf -import Data.Monoid (Endo(..)) import Control.Monad.Trans.Class (lift) import Control.Monad (forM, forM_) import Data.Default (Default, def) @@ -21,10 +20,10 @@ import Internal.NoPersist type WindowHook = Query () -data InterceptState = +newtype InterceptState = InterceptState (NoPersist (Map (KeyMask, KeySym) (X ()))) -data RemapState = +newtype RemapState = RemapState (NoPersist (Map (Window, (KeyMask, KeySym)) (X ()))) instance ExtensionClass InterceptState where -- cgit