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

Import X.Prelude unqualified if necessary

Browse Source 
This gets rid of, for example,

    The import of ‘liftA2’ from module ‘XMonad.Prelude’ is redundant

-type warnings.
This commit is contained in:
Tony Zorman 2023-10-15 12:12:51 +02:00
parent c3d16bfa99
commit 7680ebb93b
5 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Actions/MessageFeedback.hs
View File

@ -47,7 +47,7 @@ module XMonad.Actions.MessageFeedback
import XMonad ( Window ) import XMonad ( Window )
import XMonad.Core ( X(), Message, SomeMessage(..), LayoutClass(..), windowset, catchX, WorkspaceId, Layout, whenJust ) import XMonad.Core ( X(), Message, SomeMessage(..), LayoutClass(..), windowset, catchX, WorkspaceId, Layout, whenJust )
import XMonad.Operations ( updateLayout, windowBracket, modifyWindowSet ) import XMonad.Operations ( updateLayout, windowBracket, modifyWindowSet )
import XMonad.Prelude ( isJust, liftA2, void ) import XMonad.Prelude
import XMonad.StackSet ( Workspace, current, workspace, layout, tag ) import XMonad.StackSet ( Workspace, current, workspace, layout, tag )
import Control.Monad.State ( gets ) import Control.Monad.State ( gets )

10
XMonad/Actions/MostRecentlyUsed.hs
View File

@ -31,14 +31,8 @@ module XMonad.Actions.MostRecentlyUsed (
) where ) where
-- base -- base
import Data.Maybe (fromMaybe) import Data.List.NonEmpty (nonEmpty)
import Data.List.NonEmpty (NonEmpty(..), nonEmpty)
import Data.Monoid (All(..), Any)
import Data.Foldable (for_)
import Data.Functor (($>))
import Data.IORef (newIORef, readIORef, writeIORef, modifyIORef) import Data.IORef (newIORef, readIORef, writeIORef, modifyIORef)
import Control.Applicative (liftA2)
import Control.Monad (when, unless, join)
import Control.Monad.IO.Class (MonadIO) import Control.Monad.IO.Class (MonadIO)
-- mtl -- mtl
@ -68,7 +62,7 @@ import XMonad.Util.PureX
(handlingRefresh, curScreenId, curTag, greedyView, view, peek, focusWindow) (handlingRefresh, curScreenId, curTag, greedyView, view, peek, focusWindow)
import XMonad.Util.History (History, origin, event, erase, ledger) import XMonad.Util.History (History, origin, event, erase, ledger)
import XMonad.Actions.Repeatable (repeatableSt) import XMonad.Actions.Repeatable (repeatableSt)
import XMonad.Prelude (Stream (..), cycleS) import XMonad.Prelude
-- }}} -- }}}

2
XMonad/Actions/WorkspaceCursors.hs
View File

@ -50,7 +50,7 @@ import XMonad.Layout.LayoutModifier(ModifiedLayout(..),
import XMonad(Message, WorkspaceId, X, XState(windowset), import XMonad(Message, WorkspaceId, X, XState(windowset),
fromMessage, sendMessage, windows, gets) fromMessage, sendMessage, windows, gets)
import XMonad.Util.Stack (reverseS) import XMonad.Util.Stack (reverseS)
import XMonad.Prelude (find, fromJust, guard, liftA2, toList, when, (<=<)) import XMonad.Prelude
-- $usage -- $usage
-- --

2
XMonad/Prompt/RunOrRaise.hs
View File

@ -22,7 +22,7 @@ module XMonad.Prompt.RunOrRaise
) where ) where
import XMonad hiding (config) import XMonad hiding (config)
import XMonad.Prelude (isNothing, isSuffixOf, liftA2) import XMonad.Prelude
import XMonad.Prompt import XMonad.Prompt
import XMonad.Prompt.Shell import XMonad.Prompt.Shell
import XMonad.Actions.WindowGo (runOrRaise) import XMonad.Actions.WindowGo (runOrRaise)

2
XMonad/Util/ExclusiveScratchpads.hs
View File

@ -39,7 +39,7 @@ module XMonad.Util.ExclusiveScratchpads
customFloating customFloating
) where ) where
import XMonad.Prelude (appEndo, filterM, liftA2, (<=<)) import XMonad.Prelude
import XMonad import XMonad
import XMonad.Actions.Minimize import XMonad.Actions.Minimize
import XMonad.Actions.TagWindows (addTag,delTag) import XMonad.Actions.TagWindows (addTag,delTag)