increase error msg length limit (#139)

Co-authored-by: Martin Raszyk <martin.raszyk@dfinity.org>
dfinity · Feb 2, 2023 · 80875f3 · 80875f3
1 parent ebedfe6
commit 80875f3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/IC/Test/Agent.hs b/src/IC/Test/Agent.hs
@@ -428,7 +428,7 @@ submitCall' cid req = do
      assertBool "Response body not empty" (BS.null (responseBody res))
      pure $ Right (getRequestStatus' (senderOf req) cid (requestId req))
   else do
-    let msg = T.unpack (T.decodeUtf8With T.lenientDecode (BS.toStrict (BS.take 200 (responseBody res))))
+    let msg = T.unpack (T.decodeUtf8With T.lenientDecode (BS.toStrict (BS.take 1000 (responseBody res))))
     pure $ Left (code, msg)
 
 submitCall :: (HasCallStack, HasAgentConfig) => Blob -> GenR -> IO (IO (HTTPErrOr ReqStatus))