The corresponding optional values in python are encoded in
the poor-man's-Maybe way, i.e., null for Nothing and unmodified
for Just.

Signed-off-by: Klaus Aehlig <[email protected]>
---
 src/Ganeti/WConfd/ConfigModifications.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Ganeti/WConfd/ConfigModifications.hs 
b/src/Ganeti/WConfd/ConfigModifications.hs
index 1aa05e2..b603cea 100644
--- a/src/Ganeti/WConfd/ConfigModifications.hs
+++ b/src/Ganeti/WConfd/ConfigModifications.hs
@@ -533,9 +533,9 @@ addTcpUdpPort port =
 
 -- | Set the instances' status to a given value.
 setInstanceStatus :: InstanceUUID
-                  -> Maybe AdminState
-                  -> Maybe Bool
-                  -> Maybe AdminStateSource
+                  -> MaybeForJSON AdminState
+                  -> MaybeForJSON Bool
+                  -> MaybeForJSON AdminStateSource
                   -> WConfdMonad (MaybeForJSON Instance)
 setInstanceStatus iUuid m1 m2 m3 = do
   ct <- liftIO getClockTime
-- 
2.2.0.rc0.207.ga3a616c

Reply via email to