From 60f20a418042246ee1399e9bbe5b9e1984745183 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Thu, 6 Dec 2012 15:23:35 +0100
Subject: [PATCH] Fix small typo in OpTestDelay/duration definition

The extra space results in inaccessible names; currently GHC doesn't
flag this as an error, but I've filled an upstream bug for that
(http://hackage.haskell.org/trac/ghc/ticket/7484).

Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: Michael Hanselmann <hansmi@google.com>
---
 htools/Ganeti/OpParams.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/htools/Ganeti/OpParams.hs b/htools/Ganeti/OpParams.hs
index d3eca0e4d..e375ae596 100644
--- a/htools/Ganeti/OpParams.hs
+++ b/htools/Ganeti/OpParams.hs
@@ -1210,7 +1210,7 @@ pAllowFailover = defaultFalse "allow_failover"
 -- | Duration parameter for 'OpTestDelay'.
 pDelayDuration :: Field
 pDelayDuration =
-  renameField "DelayDuration "$ simpleField "duration" [t| Double |]
+  renameField "DelayDuration" $ simpleField "duration" [t| Double |]
 
 -- | on_master field for 'OpTestDelay'.
 pDelayOnMaster :: Field
-- 
GitLab