1 files changed, 40 insertions, 9 deletions
diff --git a/src/Rahm/Desktop/Submap.hs b/src/Rahm/Desktop/Submap.hs
index ca767e3..203eb20 100644
--- a/src/Rahm/Desktop/Submap.hs
+++ b/src/Rahm/Desktop/Submap.hs
@@ -12,18 +12,49 @@ module Rahm.Desktop.Submap
 where
 
 import Control.Concurrent (threadDelay)
-import Control.Monad (void)
+import Control.Monad ()
 import Control.Monad.Fix (fix)
-import Control.Monad.Trans
-import Control.Monad.Trans.Maybe
+import Control.Monad.Trans (MonadTrans (lift))
+import Control.Monad.Trans.Maybe (MaybeT (MaybeT))
 import Data.Map (Map)
-import qualified Data.Map as Map
-import Data.Time.Clock.POSIX
+import qualified Data.Map as Map (findWithDefault, lookup)
+import Data.Time.Clock.POSIX (getPOSIXTime)
 import Data.Word (Word64)
-import Rahm.Desktop.Common
-import Rahm.Desktop.XMobarLog.PendingBuffer
-import Text.Printf (printf)
-import XMonad hiding (keys)
+import Rahm.Desktop.Common (runMaybeT_)
+import Rahm.Desktop.XMobarLog.PendingBuffer ()
+import Text.Printf ()
+import XMonad
+  ( Button,
+    ButtonMask,
+    Display,
+    Event (..),
+    KeyMask,
+    KeySym,
+    MonadReader (ask),
+    Window,
+    X,
+    XConf (..),
+    XEventPtr,
+    allocaXEvent,
+    asKeyEvent,
+    buttonPressMask,
+    checkMaskEvent,
+    currentTime,
+    getEvent,
+    grabKeyboard,
+    grabModeAsync,
+    grabPointer,
+    io,
+    isModifierKey,
+    keyPressMask,
+    keycodeToKeysym,
+    lookupString,
+    maskEvent,
+    pointerMotionMask,
+    ungrabKeyboard,
+    ungrabPointer,
+    (.|.),
+  )
 
 currentTimeMillis :: IO Int
 currentTimeMillis = round . (* 1000) <$> getPOSIXTime