makeName suitedata =
  intercalate "__"
    (foldl (\accum (TestSuite { suiteName = name }, (pass, fail)) ->
             (Strict.unpack name ++ "_" ++ show pass ++ "_" ++ show fail) : accum)
           [] suitedata)
makeName suitedata =
  intercalate "__"
    (foldl (\accum (TestSuite { suiteName = name }, (pass, fail)) ->
             (Strict.unpack name ++ "_" ++ show pass ++ "_" ++ show fail) : accum)
           [] suitedata)
makeName suitedata =
  intercalate "__"
    (foldl (\accum (TestSuite { suiteName = name }, (pass, fail)) ->
             (Strict.unpack name ++ "_" ++ show pass ++ "_" ++ show fail) : accum)
           [] suitedata)