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/Workspaces.hs | 53 +++++++++++++++++++++++++++++++++++++-----
 1 file changed, 47 insertions(+), 6 deletions(-)

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

diff --git a/src/Rahm/Desktop/Workspaces.hs b/src/Rahm/Desktop/Workspaces.hs
index 9ddafa5..dc9d317 100644
--- a/src/Rahm/Desktop/Workspaces.hs
+++ b/src/Rahm/Desktop/Workspaces.hs
@@ -1,17 +1,58 @@
 -- Common ways to select workspaces
 module Rahm.Desktop.Workspaces where
 
-import Control.Arrow (second, (&&&))
-import Control.Monad.Trans.Maybe
-import Data.Char (isAlphaNum, isUpper, toLower, toUpper)
+import Control.Arrow (Arrow ((&&&)))
+import Control.Monad.Trans.Maybe ()
+import Data.Char (isUpper, toLower, toUpper)
 import Data.List (find, sort, sortBy, sortOn)
 import Data.List.Safe ((!!))
 import Data.Maybe (fromMaybe, mapMaybe)
-import Rahm.Desktop.Common
-import Rahm.Desktop.History
+import Rahm.Desktop.Common (getCurrentWorkspace, gotoWorkspace)
+import Rahm.Desktop.History ()
 import qualified Rahm.Desktop.StackSet as W
+  ( Screen (Screen, screenDetail, workspace),
+    StackSet (StackSet, current, visible),
+    Workspace (Workspace, tag),
+    integrate',
+  )
 import XMonad
-import Prelude hiding ((!!))
+  ( Rectangle (Rectangle),
+    ScreenDetail (SD),
+    ScreenId,
+    Window,
+    WindowSet,
+    WorkspaceId,
+    X,
+    windows,
+    withWindowSet,
+  )
+import Prelude
+  ( Bool (..),
+    Enum,
+    Eq (..),
+    Foldable (elem),
+    Functor (fmap),
+    Int,
+    Maybe (..),
+    Monad (return),
+    Ord (compare),
+    String,
+    const,
+    filter,
+    flip,
+    fst,
+    head,
+    last,
+    map,
+    maybe,
+    reverse,
+    snd,
+    ($),
+    (++),
+    (.),
+    (<$>),
+    (=<<),
+  )
 
 newtype Selector = Selector (forall a. (a -> Bool) -> [a] -> Maybe a)
 
-- 
cgit