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

update to work with GHC 8.4.1

Browse Source
This commit is contained in:
Michiel Derhaeg
2018-03-20 22:06:18 +01:00
parent 3d3e898166
commit 86595e193e
5 changed files with 33 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Layout/Mosaic.hs
View File

@@ -38,7 +38,8 @@ import Control.Monad(mplus)
import Data.Foldable(Foldable,foldMap, sum)
import Data.Function(on)
import Data.List(sortBy)
import Data.Monoid(Monoid,mempty, mappend)
import Data.Monoid(Monoid,mempty, mappend, (<>))
import Data.Semigroup
-- $usage
@@ -202,6 +203,9 @@ instance Monoid (Tree a) where
mappend x Empty = x
mappend x y = Branch x y
instance Semigroup (Tree a) where
(<>) = mappend
makeTree :: (Num a1, Ord a1) => (a -> a1) -> [a] -> Tree a
makeTree _ [] = Empty
makeTree _ [x] = Leaf x