diff options
author | joachim.fasting <joachim.fasting@gmail.com> | 2007-06-20 14:34:49 +0200 |
---|---|---|
committer | joachim.fasting <joachim.fasting@gmail.com> | 2007-06-20 14:34:49 +0200 |
commit | 0fd45e3280f3f7252a5ad7c2e110eacafa75e5df (patch) | |
tree | 605b818dc3a2728845bcbe1c35f5dc1a96021158 /Mosaic.hs | |
parent | d3cfd0d76e160a8c13cd7e592a3f41f48775fcaf (diff) | |
download | XMonadContrib-0fd45e3280f3f7252a5ad7c2e110eacafa75e5df.tar.gz XMonadContrib-0fd45e3280f3f7252a5ad7c2e110eacafa75e5df.tar.xz XMonadContrib-0fd45e3280f3f7252a5ad7c2e110eacafa75e5df.zip |
Mosaic.hs: get rid off some of the warnings generated by -Wall.
Unused definitions and imports left in, as I assume they'll be used for
something later on.
darcs-hash:20070620123449-ea16c-aadadae5c3502ac069763f93aa2eb73c797b4569.gz
Diffstat (limited to '')
-rw-r--r-- | Mosaic.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -70,7 +70,7 @@ data HandleWindow = ExpandWindow NamedWindow | ShrinkWindow NamedWindow instance Message HandleWindow -expandWindow, shrinkWindow, squareWindow, myclearWindow,tallWindow, wideWindow :: NamedWindow -> HandleWindow +expandWindow, shrinkWindow, squareWindow, flexibleWindow, myclearWindow,tallWindow, wideWindow :: NamedWindow -> HandleWindow expandWindow = ExpandWindow shrinkWindow = ShrinkWindow 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 [] = defaultArea -hints2area (RelArea r:x) = r +hints2area (RelArea r:_) = r hints2area (_:x) = hints2area x area :: Rectangle -> Double @@ -346,7 +346,7 @@ lengthM (OM _) = 1 lengthM (M x) = sum $ map lengthM x changeMosaic :: Mosaic a -> [Mosaic a] -changeMosaic (OM a) = [] +changeMosaic (OM _) = [] changeMosaic (M xs) = map makeM (concatenations xs) ++ map makeM (splits xs) ++ map M (tryAll changeMosaic xs) |