Cleanup build warnings

Signed-off-by: Gábor Lipták <gliptak@gmail.com>
This commit is contained in:
Gábor Lipták
2017-04-15 17:29:27 -04:00
parent 10b843ad21
commit 0c97a89754
4 changed files with 19 additions and 3 deletions

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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