@@ -195,6 +195,9 @@ map f = mapM (return . f)
195195
196196MONAD_APPLICATIVE_INSTANCE(SerialT,)
197197MONAD_COMMON_INSTANCES(SerialT,)
198+LIST_INSTANCES(SerialT)
199+FOLDABLE_INSTANCE(SerialT)
200+TRAVERSABLE_INSTANCE(SerialT)
198201
199202------------------------------------------------------------------------------
200203-- WSerialT
@@ -332,12 +335,6 @@ instance Monad m => Monad (WSerialT m) where
332335
333336MONAD_APPLICATIVE_INSTANCE(WSerialT,)
334337MONAD_COMMON_INSTANCES(WSerialT,)
335−
336−LIST_INSTANCES(SerialT)
337338LIST_INSTANCES(WSerialT)
338−
339−FOLDABLE_INSTANCE(SerialT)
340339FOLDABLE_INSTANCE(WSerialT)
341−
342−TRAVERSABLE_INSTANCE(SerialT)
343340TRAVERSABLE_INSTANCE(WSerialT)