summaryrefslogtreecommitdiff
blob: 599615a8e5fb99bafb66e46cb7ae46d0fe9f30bc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
diff --git a/src/Test/HUnit/Tools.hs b/src/Test/HUnit/Tools.hs
index a24a510..6b8a25e 100644
--- a/src/Test/HUnit/Tools.hs
+++ b/src/Test/HUnit/Tools.hs
@@ -97,3 +97,7 @@ runVerbTestText (HU.PutText put us) t = do
   reportFailure = reportProblem "Failure:" "Failure in: "
-  reportProblem p0 p1 msg ss us = put line True us
+  reportProblem p0 p1
+#if MIN_VERSION_HUnit(1,3,0)
+                      _loc
+#endif
+                           msg ss us = put line True us
    where line  = "### " ++ kind ++ path' ++ '\n' : msg