Add Monoid instance for JSX (#38)

purescript-react · May 25, 2018 · 5e38d1d · 5e38d1d
1 parent 705e7d4
commit 5e38d1d
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/generated-docs/React/Basic.md b/generated-docs/React/Basic.md
@@ -81,6 +81,12 @@ data JSX :: Type
 
 A virtual DOM element.
 
+##### Instances
+``` purescript
+Semigroup JSX
+Monoid JSX
+```
+
 #### `ReactComponent`
 
 ``` purescript

diff --git a/src/React/Basic.purs b/src/React/Basic.purs
@@ -16,11 +16,18 @@ import Prelude
 import Control.Monad.Eff (Eff, kind Effect)
 import Control.Monad.Eff.Uncurried (EffFn3, mkEffFn3)
 import Data.Function.Uncurried (Fn2, Fn3, mkFn3, runFn2)
+import Data.Monoid (class Monoid)
 import Unsafe.Coerce (unsafeCoerce)
 
 -- | A virtual DOM element.
 foreign import data JSX :: Type
 
+instance semigroupJSX :: Semigroup JSX where
+  append a b = fragment [ a, b ]
+
+instance monoidJSX :: Monoid JSX where
+  mempty = empty
+
 -- | A React component which can be used from JavaScript.
 foreign import data ReactComponent :: Type -> Type