From 324f6ebedcfe29616c9e62c7ba3d5a4203034c94 Mon Sep 17 00:00:00 2001
From: slycelote <slycelot@yandex.ru>
Date: Fri, 5 Nov 2021 19:33:31 -0700
Subject: [PATCH] Better error message in test

---
 libcaide/test/ProblemParsers.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libcaide/test/ProblemParsers.hs b/libcaide/test/ProblemParsers.hs
index 7eeb268..8f6998c 100644
--- a/libcaide/test/ProblemParsers.hs
+++ b/libcaide/test/ProblemParsers.hs
@@ -25,7 +25,7 @@ assertParses parser url expectedProblem expectedTestCases = HUnit.TestCase $ do
     assertBool "The parser must be able to handle the URL" $ problemUrlMatches url
     parseResult <- parseProblem url Nothing
     case parseResult of
-        Left err -> assertFailure $ T.unpack err
+        Left err -> assertFailure $ T.unpack $ url <> ": " <> err
         Right (problem, testCases) -> do
             assertEqual "Problem name" (problemName expectedProblem) (problemName problem)
             assertEqual "Problem ID" (problemId expectedProblem) (problemId problem)