aboutsummaryrefslogtreecommitdiff
path: root/src/Rahm/Desktop/StackSet.hs
diff options
context:
space:
mode:
authorJosh Rahm <joshuarahm@gmail.com>2022-11-23 00:26:58 -0700
committerJosh Rahm <joshuarahm@gmail.com>2022-11-23 00:26:58 -0700
commit1f25484605881af1a8e1475565d2ceb20b88ea85 (patch)
tree0dcdb9a3814d51779f7b9aedd39ae516b540f54b /src/Rahm/Desktop/StackSet.hs
parent80021afcb29332cfddbd8f7d24a107298064383c (diff)
downloadrde-1f25484605881af1a8e1475565d2ceb20b88ea85.tar.gz
rde-1f25484605881af1a8e1475565d2ceb20b88ea85.tar.bz2
rde-1f25484605881af1a8e1475565d2ceb20b88ea85.zip
Change to use minimal imports.
This is achieved by using `stack build --ghc-options=-ddump-minimal-imports` and looking for the *.imports files.
Diffstat (limited to 'src/Rahm/Desktop/StackSet.hs')
-rw-r--r--src/Rahm/Desktop/StackSet.hs56
1 files changed, 53 insertions, 3 deletions
diff --git a/src/Rahm/Desktop/StackSet.hs b/src/Rahm/Desktop/StackSet.hs
index 6c425aa..86b8a33 100644
--- a/src/Rahm/Desktop/StackSet.hs
+++ b/src/Rahm/Desktop/StackSet.hs
@@ -17,13 +17,63 @@ module Rahm.Desktop.StackSet
)
where
-import Data.Default
+import Data.Default ()
import Data.List (find)
import Data.List.Safe (head)
import qualified Data.Map as Map
+ ( fromList,
+ keys,
+ lookup,
+ mapKeys,
+ )
import Data.Maybe (catMaybes, fromMaybe, listToMaybe)
-import XMonad.StackSet as W hiding (greedyView, shiftWin)
-import qualified XMonad.StackSet
+import XMonad.StackSet as W
+ ( RationalRect (..),
+ Screen (..),
+ Stack (..),
+ StackSet (..),
+ Workspace (..),
+ abort,
+ allWindows,
+ currentTag,
+ delete,
+ delete',
+ differentiate,
+ ensureTags,
+ filter,
+ findTag,
+ float,
+ focusDown,
+ focusDown',
+ focusMaster,
+ focusUp,
+ focusUp',
+ focusWindow,
+ index,
+ insertUp,
+ integrate,
+ integrate',
+ lookupWorkspace,
+ mapLayout,
+ mapWorkspace,
+ member,
+ modify,
+ modify',
+ new,
+ peek,
+ renameTag,
+ screens,
+ shift,
+ shiftMaster,
+ sink,
+ swapDown,
+ swapMaster,
+ swapUp,
+ tagMember,
+ view,
+ workspaces,
+ )
+import qualified XMonad.StackSet (shiftWin)
import Prelude hiding (head)
data WindowLocation i l a s sd