@@ -36,6 +36,7 @@ import Control.Lens
3636import Control.Monad.Except
3737import Control.Monad.Reader
3838import Data.CaseInsensitive as CI
39+import Data.Semigroup
3940import Data.String
4041import Data.Text as T
4142import GHC.Generics (Generic)
@@ -134,7 +135,7 @@ matchName n = NameMatcher
134135-- element of the document. Errors are much more usefull with path.
135136newtype DomPath = DomPath
136137 { unDomPath :: [Text]
137− } deriving (Eq, Ord, Show, Monoid)
138+ } deriving (Eq, Ord, Show, Semigroup, Monoid)
138139
139140-- | DOM parser error description.
140141data ParserError
@@ -184,7 +185,7 @@ instance Exception ParserError
184185
185186newtype ParserErrors = ParserErrors
186187 { unParserErrors :: [ParserError]
187− } deriving (Show, Monoid, Generic)
188+ } deriving (Show, Semigroup, Monoid, Generic)
188189
189190makePrisms ''ParserErrors
190191