[cleanup] clean up some unused functions.

1 files changed, 16 insertions, 10 deletions

diff --git a/src/Rahm/Desktop/PopupTerminal.hs b/src/Rahm/Desktop/PopupTerminal.hs
index fb38563..bf0b8c3 100644
--- a/src/Rahm/Desktop/PopupTerminal.hs
+++ b/src/Rahm/Desktop/PopupTerminal.hs
@@ -1,17 +1,23 @@
-module Rahm.Desktop.PopupTerminal where
+module Rahm.Desktop.PopupTerminal
+  ( getPopupTerminalWindow,
+    movePopupToCurrentWorkspace,
+    movePopupToHiddenWorkspace,
+    updatePopupTerminalHook,
+  )
+where
 
-import XMonad
-import qualified XMonad.Util.ExtensibleState as XS
-import Data.Monoid
 import Control.Monad.Trans
-import qualified XMonad.StackSet as W
 import Data.Foldable (forM_)
+import Data.Monoid
+import XMonad
+import qualified XMonad.StackSet as W
+import qualified XMonad.Util.ExtensibleState as XS
 import XMonad.Util.SpawnOnce (spawnOnce)
 
 newtype PopupTerminalState = PopupTerminalState
- {
-   popupTerminalWindow :: Maybe Window
- } deriving (Show, Read)
+  { popupTerminalWindow :: Maybe Window
+  }
+  deriving (Show, Read)
 
 instance ExtensionClass PopupTerminalState where
   initialValue = PopupTerminalState Nothing
@@ -25,8 +31,8 @@ movePopupToCurrentWorkspace = do
   mWin <- getPopupTerminalWindow
   forM_ mWin $ \win -> do
     windows $ \ws ->
-     W.focusWindow win $
-      W.shiftWin (W.tag (W.workspace (W.current ws))) win ws
+      W.focusWindow win $
+        W.shiftWin (W.tag (W.workspace (W.current ws))) win ws
 
 movePopupToHiddenWorkspace :: X ()
 movePopupToHiddenWorkspace = do