mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-18 19:10:21 -07:00
Import X.Prelude unqualified if necessary
This gets rid of, for example, The import of ‘liftA2’ from module ‘XMonad.Prelude’ is redundant -type warnings.
This commit is contained in:
parent
c3d16bfa99
commit
7680ebb93b
@ -47,7 +47,7 @@ module XMonad.Actions.MessageFeedback
|
||||
import XMonad ( Window )
|
||||
import XMonad.Core ( X(), Message, SomeMessage(..), LayoutClass(..), windowset, catchX, WorkspaceId, Layout, whenJust )
|
||||
import XMonad.Operations ( updateLayout, windowBracket, modifyWindowSet )
|
||||
import XMonad.Prelude ( isJust, liftA2, void )
|
||||
import XMonad.Prelude
|
||||
import XMonad.StackSet ( Workspace, current, workspace, layout, tag )
|
||||
|
||||
import Control.Monad.State ( gets )
|
||||
|
@ -31,14 +31,8 @@ module XMonad.Actions.MostRecentlyUsed (
|
||||
) where
|
||||
|
||||
-- base
|
||||
import Data.Maybe (fromMaybe)
|
||||
import Data.List.NonEmpty (NonEmpty(..), nonEmpty)
|
||||
import Data.Monoid (All(..), Any)
|
||||
import Data.Foldable (for_)
|
||||
import Data.Functor (($>))
|
||||
import Data.List.NonEmpty (nonEmpty)
|
||||
import Data.IORef (newIORef, readIORef, writeIORef, modifyIORef)
|
||||
import Control.Applicative (liftA2)
|
||||
import Control.Monad (when, unless, join)
|
||||
import Control.Monad.IO.Class (MonadIO)
|
||||
|
||||
-- mtl
|
||||
@ -68,7 +62,7 @@ import XMonad.Util.PureX
|
||||
(handlingRefresh, curScreenId, curTag, greedyView, view, peek, focusWindow)
|
||||
import XMonad.Util.History (History, origin, event, erase, ledger)
|
||||
import XMonad.Actions.Repeatable (repeatableSt)
|
||||
import XMonad.Prelude (Stream (..), cycleS)
|
||||
import XMonad.Prelude
|
||||
|
||||
-- }}}
|
||||
|
||||
|
@ -50,7 +50,7 @@ import XMonad.Layout.LayoutModifier(ModifiedLayout(..),
|
||||
import XMonad(Message, WorkspaceId, X, XState(windowset),
|
||||
fromMessage, sendMessage, windows, gets)
|
||||
import XMonad.Util.Stack (reverseS)
|
||||
import XMonad.Prelude (find, fromJust, guard, liftA2, toList, when, (<=<))
|
||||
import XMonad.Prelude
|
||||
|
||||
-- $usage
|
||||
--
|
||||
|
@ -22,7 +22,7 @@ module XMonad.Prompt.RunOrRaise
|
||||
) where
|
||||
|
||||
import XMonad hiding (config)
|
||||
import XMonad.Prelude (isNothing, isSuffixOf, liftA2)
|
||||
import XMonad.Prelude
|
||||
import XMonad.Prompt
|
||||
import XMonad.Prompt.Shell
|
||||
import XMonad.Actions.WindowGo (runOrRaise)
|
||||
|
@ -39,7 +39,7 @@ module XMonad.Util.ExclusiveScratchpads
|
||||
customFloating
|
||||
) where
|
||||
|
||||
import XMonad.Prelude (appEndo, filterM, liftA2, (<=<))
|
||||
import XMonad.Prelude
|
||||
import XMonad
|
||||
import XMonad.Actions.Minimize
|
||||
import XMonad.Actions.TagWindows (addTag,delTag)
|
||||
|
Loading…
x
Reference in New Issue
Block a user