{-# LANGUAGE NoRebindableSyntax #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Symantic.Compta.Utils.Monoid where

import Data.Function ((.))
import Data.Monoid (Endo(..))
import Text.Show (Show(..))

instance Show a => Show (Endo [a]) where
  showsPrec p = showsPrec p . (`appEndo` [])