Add convenience withStringErrors function

rowtype-yoga · Nov 6, 2023 · 6b9bb4a · 6b9bb4a
1 parent 51737ae
commit 6b9bb4a
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/Yoga/JSON/Error.purs b/src/Yoga/JSON/Error.purs
@@ -3,6 +3,10 @@ module Yoga.JSON.Error where
 import Prelude
 
 import Foreign (ForeignError(..))
+import Data.Semigroup.Foldable (intercalateMap)
+import Data.Bifunctor (lmap)
+import Yoga.JSON (E)
+import Data.Either (Either)
 
 toJSONPath ∷ ForeignError → String
 toJSONPath fe = "$" <> path
@@ -20,6 +24,9 @@ renderHumanError = errorToJSON >>> toHuman
   where
   toHuman { message, path } = message <> " at " <> path
 
+withStringErrors :: forall a. E a -> Either String a
+withStringErrors = lmap (intercalateMap "\n" renderHumanError)
+
 errorToJSON ∷
   ForeignError →
   { message ∷ String