Make output similar to Erlang's

ba82c36d · Yiannis Tsiouris · 7521e841 · ba82c36d
Commit ba82c36d authored Nov 18, 2014 by Yiannis Tsiouris
Show whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

Bench.hs Bench.hs +3 -1

No files found.
--- a/Bench.hs
+++ b/Bench.hs
@@ -145,4 +145,6 @@ dist_seq generators n p workers =
  where w = length workers
 sz (_, mainStats : _) =
-    "False" `fromMaybe` ("size" `lookup` mainStats)
+    case "size" `lookup` mainStats of
+        Nothing -> "false"
+        Just s  -> "{size," ++ s ++ "}"