module Data.Monoid.Multiplicative.Sugar
    ( module Data.Monoid.Additive.Sugar
    , module Data.Monoid.Multiplicative
    , (*)
    ) where

import Data.Monoid.Additive.Sugar
import Data.Monoid.Multiplicative
import Prelude hiding ((*))

infixl 7 *

(*) :: MultiplicativeMonoid r => r -> r -> r
(*) = times