Add percentage sign after total coverage value diplayed after receivi…

…ng response from Codecov
killy971 · Sep 27, 2014 · 6ff2af2 · 6ff2af2
1 parent f47f76e
commit 6ff2af2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Trace/Hpc/Codecov/Curl.hs b/src/Trace/Hpc/Codecov/Curl.hs
@@ -22,7 +22,7 @@ import           Trace.Hpc.Codecov.Types
 
 parseResponse :: CurlResponse -> PostResult
 parseResponse r = case respCurlCode r of
-    CurlOK -> PostSuccess (getField "url") (show $ (getField "coverage" :: Integer))
+    CurlOK -> PostSuccess (getField "url") ((show (getField "coverage" :: Integer)) ++ "%")
     _      -> PostFailure $ getField "message"
     where getField fieldName = fromJust $ mGetField fieldName
           mGetField fieldName = do