Add newtype instance for Alternate

Author: masaeedu

bower.json

@@ -16,7 +16,8 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-prelude": "^4.0.0"
+    "purescript-prelude": "^4.0.0",
+    "purescript-newtype": "^3.0.0"
   },
   "devDependencies": {
     "purescript-effect": "^2.0.0"

src/Data/Monoid/Alternate.purs

@@ -5,6 +5,7 @@ import Prelude
 import Control.Alternative (class Alt, class Plus, class Alternative, empty, (<|>))
 import Control.Comonad (class Comonad, class Extend)
 import Data.Eq (class Eq1)
+import Data.Newtype (class Newtype)
 import Data.Ord (class Ord1)
 
 -- | Monoid and semigroup instances corresponding to `Plus` and `Alt` instances
@@ -16,6 +17,8 @@ import Data.Ord (class Ord1)
 -- | ```
 newtype Alternate f a = Alternate (f a)
 
+derive instance newtypeAlternate :: Newtype (Alternate f a) _
+
 derive newtype instance eqAlternate :: Eq (f a) => Eq (Alternate f a)
 
 derive newtype instance eq1Alternate :: Eq1 f => Eq1 (Alternate f)