utility-ht-0.0.9: src/Data/Monoid/HT.hs

module Data.Monoid.HT (cycle, (<>), ) where

import Data.Monoid (Monoid, mappend, )
import Data.Function (fix, )

import Prelude ()


{- |
Generalization of 'Data.List.cycle' to any monoid.
-}
cycle :: Monoid m => m -> m
cycle x =
   fix (mappend x)


infixr 6 <>

{- |
Infix synonym for 'mappend.
-}
(<>) :: Monoid m => m -> m -> m
(<>) = mappend