[commit: ghc] master: Add missing dataCast1 method to the Data Bag instance (a7147df)

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}