Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/a7147dfbe629b9c8194ef16756f9451a8648a4a4 >--------------------------------------------------------------- commit a7147dfbe629b9c8194ef16756f9451a8648a4a4 Author: Jose Pedro Magalhaes <[email protected]> Date: Fri Sep 21 09:00:11 2012 +0100 Add missing dataCast1 method to the Data Bag instance >--------------------------------------------------------------- compiler/utils/Bag.lhs | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) diff --git a/compiler/utils/Bag.lhs b/compiler/utils/Bag.lhs index a32991b..a833978 100644 --- a/compiler/utils/Bag.lhs +++ b/compiler/utils/Bag.lhs @@ -268,5 +268,6 @@ instance Data a => Data (Bag a) where toConstr _ = abstractConstr $ "Bag("++show (typeOf (undefined::a))++")" gunfold _ _ = error "gunfold" dataTypeOf _ = mkNoRepType "Bag" + dataCast1 x = gcast1 x \end{code} _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
