From 0ef7ffca7d66f394b9838ad49f956af9a06daa25 Mon Sep 17 00:00:00 2001 From: Abhinav Sarkar Date: Tue, 5 Sep 2017 01:26:01 +0530 Subject: [PATCH] renderForeignError renders nested ForeignError recursively --- src/Data/Foreign.purs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Data/Foreign.purs b/src/Data/Foreign.purs index a7ea0df..29e7f41 100644 --- a/src/Data/Foreign.purs +++ b/src/Data/Foreign.purs @@ -73,8 +73,8 @@ type MultipleErrors = NonEmptyList ForeignError renderForeignError :: ForeignError -> String renderForeignError (ForeignError msg) = msg -renderForeignError (ErrorAtIndex i e) = "Error at array index " <> show i <> ": " <> show e -renderForeignError (ErrorAtProperty prop e) = "Error at property " <> show prop <> ": " <> show e +renderForeignError (ErrorAtIndex i e) = "Error at array index " <> show i <> ": " <> renderForeignError e +renderForeignError (ErrorAtProperty prop e) = "Error at property " <> prop <> ": " <> renderForeignError e renderForeignError (JSONError s) = "JSON error: " <> s renderForeignError (TypeMismatch exp act) = "Type mismatch: expected " <> exp <> ", found " <> act