twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-31 04:01:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #452 from liskin/pr/hspec

Browse Source 
tests: Use hspec as test driver (prep for #407 #430 #440 unit tests); speed up
This commit is contained in:
Tomáš Janoušek
2021-01-27 21:05:49 +01:00
committed by GitHub
parent 94670a72be 6179ed9dbe
commit 627e203bcf
5 changed files with 86 additions and 95 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Actions/GridSelect.hs
View File

@@ -1,4 +1,4 @@
{-# LANGUAGE ScopedTypeVariables, GeneralizedNewtypeDeriving, TypeSynonymInstances, FlexibleInstances, OverlappingInstances #-}
{-# LANGUAGE ScopedTypeVariables, GeneralizedNewtypeDeriving, TypeSynonymInstances, FlexibleInstances #-}
-----------------------------------------------------------------------------
-- |
-- Module : XMonad.Actions.GridSelect
@@ -220,7 +220,7 @@ instance HasColorizer Window where
instance HasColorizer String where
defaultColorizer = stringColorizer
instance HasColorizer a where
instance {-# OVERLAPPABLE #-} HasColorizer a where
defaultColorizer _ isFg =
let getColor = if isFg then focusedBorderColor else normalBorderColor
in asks $ flip (,) "black" . getColor . config