Export Either

katsujukou · Dec 26, 2023 · 77e6373 · 77e6373
1 parent 9163156
commit 77e6373
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Record/Optional/Export.purs b/src/Record/Optional/Export.purs
@@ -2,6 +2,7 @@ module Record.Optional.Export where
 
 import Prelude
 
+import Data.Either (Either, either)
 import Data.Maybe (Maybe, maybe)
 import Data.Symbol (class IsSymbol, reflectSymbol)
 import Foreign (Foreign)
@@ -38,6 +39,9 @@ instance exportArray :: Export a => Export (Array a) where
 instance exportMaybe :: Export a => Export (Maybe a) where
   export = maybe jsNull export
 
+instance exportEither :: (Export a, Export b) => Export (Either a b) where
+  export = either export export
+
 instance Export a => Export (Object a) where
   export = unsafeCoerce <<< map export