aboutsummaryrefslogtreecommitdiff
path: root/src/Rahm/Desktop/Workspaces.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Rahm/Desktop/Workspaces.hs')
-rw-r--r--src/Rahm/Desktop/Workspaces.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Rahm/Desktop/Workspaces.hs b/src/Rahm/Desktop/Workspaces.hs
index 96e4d99..1b08e38 100644
--- a/src/Rahm/Desktop/Workspaces.hs
+++ b/src/Rahm/Desktop/Workspaces.hs
@@ -25,7 +25,7 @@ module Rahm.Desktop.Workspaces
where
import Control.Arrow (Arrow ((&&&)))
-import Control.Monad.Trans (lift)
+import Control.Monad.Trans (lift, MonadIO (liftIO))
import Control.Monad.Trans.Maybe (MaybeT (MaybeT))
import Data.Char (chr, isDigit, isUpper, ord, toLower, toUpper)
import Data.Int (Int32)
@@ -48,6 +48,7 @@ import XMonad
withWindowSet,
)
import Prelude hiding ((!!))
+import System.IO (stderr, hPutStrLn)
newtype Selector = Selector (forall a. (a -> Bool) -> [a] -> Maybe a)