twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-22 15:33:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

Mosaic.hs: get rid off some of the warnings generated by -Wall.

Browse Source 
Unused definitions and imports left in, as I assume they'll be used for
something later on.
This commit is contained in:
joachim.fasting
2007-06-20 12:34:49 +00:00
parent 6b1897037d
commit 63023902d2
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Mosaic.hs
View File

@@ -70,7 +70,7 @@ data HandleWindow = ExpandWindow NamedWindow | ShrinkWindow NamedWindow
instance Message HandleWindow instance Message HandleWindow
expandWindow, shrinkWindow, squareWindow, myclearWindow,tallWindow, wideWindow :: NamedWindow -> HandleWindow expandWindow, shrinkWindow, squareWindow, flexibleWindow, myclearWindow,tallWindow, wideWindow :: NamedWindow -> HandleWindow
expandWindow = ExpandWindow expandWindow = ExpandWindow
shrinkWindow = ShrinkWindow shrinkWindow = ShrinkWindow
squareWindow = SquareWindow squareWindow = SquareWindow
@@ -295,7 +295,7 @@ cropit f (Rectangle a b w h) | w -/- h > f = Rectangle a b (floor $ h -* f) h
hints2area :: [WindowHint] -> Double hints2area :: [WindowHint] -> Double
hints2area [] = defaultArea hints2area [] = defaultArea
hints2area (RelArea r:x) = r hints2area (RelArea r:_) = r
hints2area (_:x) = hints2area x hints2area (_:x) = hints2area x
area :: Rectangle -> Double area :: Rectangle -> Double
@@ -346,7 +346,7 @@ lengthM (OM _) = 1
lengthM (M x) = sum $ map lengthM x lengthM (M x) = sum $ map lengthM x
changeMosaic :: Mosaic a -> [Mosaic a] changeMosaic :: Mosaic a -> [Mosaic a]
changeMosaic (OM a) = [] changeMosaic (OM _) = []
changeMosaic (M xs) = map makeM (concatenations xs) ++ changeMosaic (M xs) = map makeM (concatenations xs) ++
map makeM (splits xs) ++ map makeM (splits xs) ++
map M (tryAll changeMosaic xs) map M (tryAll changeMosaic xs)