From 1f25484605881af1a8e1475565d2ceb20b88ea85 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Wed, 23 Nov 2022 00:26:58 -0700
Subject: Change to use minimal imports.

This is achieved by using `stack build --ghc-options=-ddump-minimal-imports`
and looking for the *.imports files.
---
 src/Rahm/Desktop/StackSet.hs | 56 +++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 53 insertions(+), 3 deletions(-)

(limited to 'src/Rahm/Desktop/StackSet.hs')

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
-- 
cgit