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 <[email protected]> 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] _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
