From 40f467c9a12ddba9b433ebb337359a7045bd2ffa Mon Sep 17 00:00:00 2001 From: Guillaume Nargeot Date: Sun, 25 Jan 2015 23:24:04 +0900 Subject: [PATCH] Remove duplicate repo_token pair --- src/Trace/Hpc/Coveralls.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/src/Trace/Hpc/Coveralls.hs b/src/Trace/Hpc/Coveralls.hs index 8734501..b4caca7 100644 --- a/src/Trace/Hpc/Coveralls.hs +++ b/src/Trace/Hpc/Coveralls.hs @@ -88,7 +88,6 @@ toCoverallsJson serviceName jobId repoTokenM converter testSuiteCoverageData = object $ mcons (("repo_token" .=) <$> repoTokenM) base where base = [ "service_job_id" .= jobId, - "repo_token" .= repoTokenM, "service_name" .= serviceName, "source_files" .= toJsonCoverageList testSuiteCoverageData] toJsonCoverageList = map (uncurry $ coverageToJson converter) . M.toList