[project @ 2006-01-06 15:51:23 by simonpj]

[ghc-base.git] / Data / Sequence.hs

diff --git a/Data/Sequence.hs b/Data/Sequence.hs
index d072a28..3d38011 100644 (file)
--- a/Data/Sequence.hs
+++ b/Data/Sequence.hs
@@ -178,7 +178,7 @@ instance Data a => Data (Seq a) where
 
        dataTypeOf _    = seqDataType
 
-       dataCast1       = gcast1
+       dataCast1 f     = gcast1 f
 
 emptyConstr = mkConstr seqDataType "empty" [] Prefix
 consConstr  = mkConstr seqDataType "<|" [] Infix