From 7d11799b959ba64af8a96e9282f54f4071cf8495 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Thu, 9 Jul 2009 15:58:23 +0200
Subject: [PATCH] Fix a haddoc issue
---
Ganeti/HTools/Cluster.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Ganeti/HTools/Cluster.hs b/Ganeti/HTools/Cluster.hs
index e02197459..9deaeceba 100644
--- a/Ganeti/HTools/Cluster.hs
+++ b/Ganeti/HTools/Cluster.hs
@@ -462,7 +462,7 @@ concatAllocs (flst, succ, osols) (OpGood ns@(nl, _, _)) =
-- memory profile low - we know that we will need nsols for sure
-- in the next cycle, so we force evaluation of nsols, since the
-- foldl' in the caller will only evaluate the tuple, but not the
- -- *elements* of the tuple
+ -- elements of the tuple
in nsols `seq` nsuc `seq` (flst, nsuc, nsols)
-- | Try to allocate an instance on the cluster.
--
GitLab