From 0fd45e3280f3f7252a5ad7c2e110eacafa75e5df Mon Sep 17 00:00:00 2001
From: "joachim.fasting" <joachim.fasting@gmail.com>
Date: Wed, 20 Jun 2007 14:34:49 +0200
Subject: 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
---
 Mosaic.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Mosaic.hs')

diff --git a/Mosaic.hs b/Mosaic.hs
index 2879d21..1e858ea 100644
--- a/Mosaic.hs
+++ b/Mosaic.hs
@@ -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)
-- 
cgit v1.2.3