twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Clean up Control.Monad imports

Browse Source
This commit is contained in:
slotThe 2019-10-08 11:24:38 +02:00
parent 273ae32438
commit 30d45f8993
11 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
XMonad/Actions/RandomBackground.hs
View File

@ -24,7 +24,6 @@ module XMonad.Actions.RandomBackground (
import XMonad(X, XConf(config), XConfig(terminal), io, spawn, import XMonad(X, XConf(config), XConfig(terminal), io, spawn,
MonadIO, asks) MonadIO, asks)
import System.Random import System.Random
import Control.Monad(liftM)
import Numeric(showHex) import Numeric(showHex)
-- $usage -- $usage

2
XMonad/Actions/TopicSpace.hs
View File

@ -47,7 +47,7 @@ import Data.Maybe (fromMaybe, isNothing, listToMaybe, fromJust)
import Data.Ord import Data.Ord
import qualified Data.Map as M import qualified Data.Map as M
import Control.Applicative (liftA2) import Control.Applicative (liftA2)
import Control.Monad (liftM2,when,unless,replicateM_) import Control.Monad (when,unless,replicateM_)
import System.IO import System.IO
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W

2
XMonad/Actions/WorkspaceCursors.hs
View File

@ -49,7 +49,7 @@ import XMonad.Layout.LayoutModifier(ModifiedLayout(..),
import XMonad(Typeable, Message, WorkspaceId, X, XState(windowset), import XMonad(Typeable, Message, WorkspaceId, X, XState(windowset),
fromMessage, sendMessage, windows, gets) fromMessage, sendMessage, windows, gets)
import Control.Applicative (liftA2) import Control.Applicative (liftA2)
import Control.Monad((<=<), guard, liftM, liftM2, when) import Control.Monad((<=<), guard, when)
import Data.Foldable(Foldable(foldMap), toList) import Data.Foldable(Foldable(foldMap), toList)
import Data.Maybe(fromJust, listToMaybe) import Data.Maybe(fromJust, listToMaybe)
import Data.Monoid(Monoid(mappend, mconcat)) import Data.Monoid(Monoid(mappend, mconcat))

2
XMonad/Hooks/DynamicLog.hs
View File

@ -60,7 +60,7 @@ module XMonad.Hooks.DynamicLog (
import Codec.Binary.UTF8.String (encodeString) import Codec.Binary.UTF8.String (encodeString)
import Control.Applicative (liftA2) import Control.Applicative (liftA2)
import Control.Monad (liftM2, msum) import Control.Monad (msum)
import Data.Char ( isSpace, ord ) import Data.Char ( isSpace, ord )
import Data.List (intersperse, stripPrefix, isPrefixOf, sortBy) import Data.List (intersperse, stripPrefix, isPrefixOf, sortBy)
import Data.Maybe ( isJust, catMaybes, mapMaybe, fromMaybe ) import Data.Maybe ( isJust, catMaybes, mapMaybe, fromMaybe )

2
XMonad/Layout/TallMastersCombo.hs
View File

@ -42,7 +42,7 @@ import XMonad hiding (focus)
import XMonad.StackSet (Workspace(..),integrate',Stack(..)) import XMonad.StackSet (Workspace(..),integrate',Stack(..))
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import Data.Maybe (fromJust,isJust) import Data.Maybe (fromJust,isJust)
import Control.Monad (join, foldM) import Control.Monad (foldM)
--------------------------------------------------------------------------------- ---------------------------------------------------------------------------------
-- $usage -- $usage

1
XMonad/Prompt/RunOrRaise.hs
View File

@ -28,7 +28,6 @@ import XMonad.Util.Run (runProcessWithInput)
import Control.Exception as E import Control.Exception as E
import Control.Applicative (liftA2) import Control.Applicative (liftA2)
import Control.Monad (liftM, liftM2)
import System.Directory (doesDirectoryExist, doesFileExist, executable, getPermissions) import System.Directory (doesDirectoryExist, doesFileExist, executable, getPermissions)
econst :: Monad m => a -> IOException -> m a econst :: Monad m => a -> IOException -> m a

1
XMonad/Util/Dmenu.hs
View File

@ -24,7 +24,6 @@ import XMonad
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import qualified Data.Map as M import qualified Data.Map as M
import XMonad.Util.Run import XMonad.Util.Run
import Control.Monad (liftM)
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:

2
XMonad/Util/ExclusiveScratchpads.hs
View File

@ -37,7 +37,7 @@ module XMonad.Util.ExclusiveScratchpads (
) where ) where
import Control.Applicative (liftA2) import Control.Applicative (liftA2)
import Control.Monad ((<=<),filterM,liftM2) import Control.Monad ((<=<),filterM)
import Data.Monoid (appEndo) import Data.Monoid (appEndo)
import XMonad import XMonad
import XMonad.Actions.Minimize import XMonad.Actions.Minimize

2
XMonad/Util/Stack.hs
View File

@ -81,7 +81,7 @@ module XMonad.Util.Stack ( -- * Usage
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import Control.Applicative ((<|>)) import Control.Applicative ((<|>))
import Control.Monad (guard,liftM) import Control.Monad (guard)
import Data.List (sortBy) import Data.List (sortBy)

1
XMonad/Util/StringProp.hs
View File

@ -20,7 +20,6 @@ module XMonad.Util.StringProp (
) where ) where
import XMonad import XMonad
import Control.Monad(liftM)
import Foreign.C.String (castCCharToChar,castCharToCChar) import Foreign.C.String (castCCharToChar,castCharToCChar)
type StringProp = String type StringProp = String

1
XMonad/Util/XSelection.hs
View File

@ -23,7 +23,6 @@ module XMonad.Util.XSelection ( -- * Usage
transformSafePromptSelection) where transformSafePromptSelection) where
import Control.Exception.Extensible as E (catch,SomeException(..)) import Control.Exception.Extensible as E (catch,SomeException(..))
import Control.Monad (liftM, join)
import Data.Maybe (fromMaybe) import Data.Maybe (fromMaybe)
import XMonad import XMonad
import XMonad.Util.Run (safeSpawn, unsafeSpawn) import XMonad.Util.Run (safeSpawn, unsafeSpawn)