mirror of
https://github.com/xmonad/xmonad.git
synced 2025-07-25 17:21:52 -07:00
@@ -36,7 +36,7 @@ import XMonad.StackSet hiding (modify)
|
||||
import Prelude
|
||||
import Control.Exception.Extensible (fromException, try, bracket, throw, finally, SomeException(..))
|
||||
import qualified Control.Exception.Extensible as E
|
||||
import Control.Applicative
|
||||
import Control.Applicative(Applicative, pure, (<$>), (<*>))
|
||||
import Control.Monad.State
|
||||
import Control.Monad.Reader
|
||||
import Data.Default
|
||||
|
@@ -197,7 +197,6 @@ launch initxmc = do
|
||||
hSetBuffering stdout NoBuffering
|
||||
|
||||
let layout = layoutHook xmc
|
||||
lreads = readsLayout layout
|
||||
initialWinset = let padToLen n xs = take (max n (length xs)) $ xs ++ repeat ""
|
||||
in new layout (padToLen (length xinesc) (workspaces xmc)) $ map SD xinesc
|
||||
|
||||
|
@@ -28,7 +28,7 @@ import Data.Ratio
|
||||
import qualified Data.Map as M
|
||||
import qualified Data.Set as S
|
||||
|
||||
import Control.Applicative
|
||||
import Control.Applicative((<$>), (<*>))
|
||||
import Control.Arrow (second)
|
||||
import Control.Monad.Reader
|
||||
import Control.Monad.State
|
||||
|
17
xmonad.cabal
17
xmonad.cabal
@@ -131,3 +131,20 @@ test-suite properties
|
||||
X11,
|
||||
xmonad
|
||||
main-is: Properties.hs
|
||||
other-modules: Instances
|
||||
Properties.Delete
|
||||
Properties.Failure
|
||||
Properties.Floating
|
||||
Properties.Focus
|
||||
Properties.GreedyView
|
||||
Properties.Insert
|
||||
Properties.Layout.Full
|
||||
Properties.Layout.Tall
|
||||
Properties.Screen
|
||||
Properties.Shift
|
||||
Properties.Stack
|
||||
Properties.StackSet
|
||||
Properties.Swap
|
||||
Properties.View
|
||||
Properties.Workspace
|
||||
Utils
|
||||
|
Reference in New Issue
Block a user