src/Symantic/Compta/Utils/Monoid.hs

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