[commit: Cabal] master: fixing warnings (36b5db2)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/36b5db273d196194a6d24b00837863f58ac50eea

>---------------------------------------------------------------

commit 36b5db273d196194a6d24b00837863f58ac50eea
Author: Andres Loeh <andres at well-typed.com>
Date:   Thu Oct 27 16:09:44 2011 +0000

    fixing warnings

>---------------------------------------------------------------

 .../Distribution/Client/Dependency/Modular/Tree.hs |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/cabal-install/Distribution/Client/Dependency/Modular/Tree.hs b/cabal-install/Distribution/Client/Dependency/Modular/Tree.hs
index 6cffb6d..c0458f9 100644
--- a/cabal-install/Distribution/Client/Dependency/Modular/Tree.hs
+++ b/cabal-install/Distribution/Client/Dependency/Modular/Tree.hs
@@ -22,11 +22,11 @@ data Tree a =
   deriving (Eq, Show)
 
 instance Functor Tree where
-  fmap f (PChoice qpn i   xs) = PChoice qpn (f i)   (fmap (fmap f) xs)
-  fmap f (FChoice qpn i b xs) = FChoice qpn (f i) b (fmap (fmap f) xs)
-  fmap f (GoalChoice      xs) = GoalChoice          (fmap (fmap f) xs)
-  fmap f (Done    rdm       ) = Done    rdm
-  fmap f (Fail    cs fr     ) = Fail    cs fr
+  fmap  f (PChoice qpn i   xs) = PChoice qpn (f i)   (fmap (fmap f) xs)
+  fmap  f (FChoice qpn i b xs) = FChoice qpn (f i) b (fmap (fmap f) xs)
+  fmap  f (GoalChoice      xs) = GoalChoice          (fmap (fmap f) xs)
+  fmap _f (Done    rdm       ) = Done    rdm
+  fmap _f (Fail    cs fr     ) = Fail    cs fr
 
 data FailReason = InconsistentInitialConstraints
                 | Conflicting [Dep QPN]