moduleData.Monoid.HT(cycle,)whereimportData.Monoid(Monoid,mappend,)importData.Function(fix,)importPrelude(){- |
Generalization of 'Data.List.cycle' to any monoid.
-}cycle::Monoidm=>m->mcyclex=fix(mappendx)