hsclass Semigroup a where
(<>) :: a -> a -> a
errorExample.hs:8:10: error:
・ No instance for (Semigroup Metrics)
arising from the superclasses of an instance declaration
・In the instance declaration for ‘Monoid Metrics’
concat()
を定義する