From a160c28e9e54d9602d2b441b651184a56bd49a21 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Fri, 6 Nov 2009 14:22:39 +0100
Subject: [PATCH] Rework the tiered spec output format
---
hspace.hs | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/hspace.hs b/hspace.hs
index ad9b788f1..386e7eff9 100644
--- a/hspace.hs
+++ b/hspace.hs
@@ -296,10 +296,10 @@ main = do
ix_byspec = groupBy ((==) `on` Instance.specOf) fin_trl_ixes
spec_map = map (\ixs -> (Instance.specOf $ head ixs, length ixs))
ix_byspec::[(RSpec, Int)]
- spec_map' = map (\(idx, (spec, cnt)) ->
- printf "%dx%dx%dx%d=%d" idx (rspecCpu spec)
- (rspecMem spec) (rspecDsk spec) cnt)
- $ zip ([1..]::[Int]) spec_map::[String]
+ spec_map' = map (\(spec, cnt) ->
+ printf "%d,%d,%d=%d" (rspecMem spec)
+ (rspecDsk spec) (rspecCpu spec) cnt)
+ spec_map::[String]
when (verbose > 1) $ do
hPutStrLn stderr "Tiered allocation map"
--
GitLab