[PATCH master 1/3] Make disks_active field of Instance optional

['BSRK Aditya' via ganeti-devel]

This gives us lens instDisksActiveL.

Signed-off-by: BSRK Aditya <b...@google.com>
---
 src/Ganeti/Objects/Instance.hs        |    2 +-
 test/hs/Test/Ganeti/Query/Instance.hs |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Ganeti/Objects/Instance.hs b/src/Ganeti/Objects/Instance.hs
index 238898f..8128524 100644
--- a/src/Ganeti/Objects/Instance.hs
+++ b/src/Ganeti/Objects/Instance.hs
@@ -75,7 +75,7 @@ $(buildObjectWithForthcoming "Instance" "inst" $
       $ simpleField "nics"         [t| [PartialNic]       |]
   , defaultField [| [] |]
       $ simpleField "disks"        [t| [String]           |]
-  , simpleField "disks_active"     [t| Bool               |]
+  , optionalField $ simpleField "disks_active" [t| Bool   |]
   , optionalField $ simpleField "network_port" [t| Int  |]
   ]
   ++ timeStampFields
diff --git a/test/hs/Test/Ganeti/Query/Instance.hs 
b/test/hs/Test/Ganeti/Query/Instance.hs
index 404843c..07629b5 100644
--- a/test/hs/Test/Ganeti/Query/Instance.hs
+++ b/test/hs/Test/Ganeti/Query/Instance.hs
@@ -62,7 +62,7 @@ createInstance name pnodeUuid adminState adminStateSource =
     (GenericContainer Map.empty)
     (PartialBeParams Nothing Nothing Nothing Nothing Nothing Nothing)
     (GenericContainer Map.empty) (GenericContainer Map.empty)
-    adminState adminStateSource [] [] False Nothing epochTime epochTime
+    adminState adminStateSource [] [] (Just False) Nothing epochTime epochTime
     "" 0 Set.empty
   where epochTime = TOD 0 0
 
-- 
1.7.10.4