@@ -7,6 +7,7 @@ import Control.Monad (foldM)
77import qualified Data.ByteString as BS
88import qualified Data.ByteString.Lazy as LBS
99import qualified Data.HashMap.Strict as HM
10+import qualified Data.Semigroup as S
1011import qualified Data.Text as T
1112import qualified Network.HTTP.Client as NC
1213import qualified Network.HTTP.Client.TLS as NCTLS
@@ -29,7 +30,7 @@ data FetchInfo schema = FetchInfo
2930-- | Keys are URIs (without URI fragments).
3031newtype URISchemaMap schema
3132 = URISchemaMap { _unURISchemaMap :: HashMap Text schema }
32− deriving (Eq, Show, Monoid)
33+ deriving (Eq, Show, S.Semigroup, Monoid)
3334
3435-- | A top-level schema along with its location.
3536data SchemaWithURI schema = SchemaWithURI