Hs2Py constants: additional module jstore

Add constants from additional modules ('ganeti.jstore') to the Haskell
to Python constant generation.

Signed-off-by: Jose A. Lopes <jabolopes@google.com>
Reviewed-by: Klaus Aehlig <aehlig@google.com>

diff --git a/autotools/convert-constants b/autotools/convert-constants
index 4e83e8c..1e81b8b 100755 (executable)
--- a/autotools/convert-constants
+++ b/autotools/convert-constants
@@ -298,7 +298,7 @@ def Convert(module, prefix):
 
 
 def main():
-  print Convert(jstore, "jstore")
+  pass
 
 
 if __name__ == "__main__":

diff --git a/lib/jstore.py b/lib/jstore.py
index 324f91e..c1630b9 100644 (file)
--- a/lib/jstore.py
+++ b/lib/jstore.py
@@ -31,7 +31,7 @@ from ganeti import utils
 from ganeti import pathutils
 
 
-JOBS_PER_ARCHIVE_DIRECTORY = 10000
+JOBS_PER_ARCHIVE_DIRECTORY = constants.JSTORE_JOBS_PER_ARCHIVE_DIRECTORY
 
 
 def _ReadNumericFile(file_name):

diff --git a/src/Ganeti/HsConstants.hs b/src/Ganeti/HsConstants.hs
index 2cdf5d5..982752a 100644 (file)
--- a/src/Ganeti/HsConstants.hs
+++ b/src/Ganeti/HsConstants.hs
@@ -4548,3 +4548,8 @@ errorsEcodeAll =
                       , errorsEcodeInval
                       , errorsEcodeEnviron
                       ]
+
+-- * Jstore related constants
+
+jstoreJobsPerArchiveDirectory :: Int
+jstoreJobsPerArchiveDirectory = 10000