14 lines
242 B
Haskell
14 lines
242 B
Haskell
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
|
|
|
module Data.Sum.Instances
|
|
(
|
|
) where
|
|
|
|
import ClassyPrelude
|
|
import Data.Monoid (Sum(..))
|
|
|
|
import Text.Blaze (ToMarkup(..))
|
|
|
|
instance ToMarkup a => ToMarkup (Sum a) where
|
|
toMarkup = toMarkup . getSum
|