Add a Semigroup instance

Author: nikita-volkov

json-pointer.cabal

@@ -1,7 +1,7 @@
 name:
   json-pointer
 version:
-  0.1.2.1
+  0.1.2.2
 synopsis:
   JSON Pointer parsing and interpretation utilities
 description:

library/JSONPointer/Model.hs

@@ -17,6 +17,9 @@ import qualified Data.Text
 newtype JSONPointer =
   JSONPointer (forall m. Monoid m => (Maybe Int -> Text -> m) -> m)
 
+instance Semigroup JSONPointer where
+  (<>) = mappend
+
 instance Monoid JSONPointer where
   {-# INLINE mempty #-}
   mempty =