1 {-# LANGUAGE NoRebindableSyntax #-}
2 {-# OPTIONS_GHC -fno-warn-orphans #-}
3 module Symantic.Compta.Utils.Monoid where
5 import Data.Function ((.))
6 import Data.Monoid (Endo(..))
7 import Text.Show (Show(..))
9 instance Show a => Show (Endo [a]) where
10 showsPrec p = showsPrec p . (`appEndo` [])