This patch allows the Haskell daemons to locate Python libraries
installed to a non-standard pythondir.  It is necessary because Guix
does not use versionedsharedir (see related patch that disables it).

diff --git a/Makefile.am b/Makefile.am
--- a/Makefile.am
+++ b/Makefile.am
@@ -83,6 +83,7 @@ myexeclibdir = $(pkglibdir)
 bindir = $(versiondir)/$(BINDIR)
 sbindir = $(versiondir)$(SBINDIR)
 mandir = $(versionedsharedir)/root$(MANDIR)
+pythondir = $(versionedsharedir)
 pkgpythondir = $(versionedsharedir)/ganeti
 pkgpython_rpc_stubdir = $(versionedsharedir)/ganeti/rpc/stub
 gntpythondir = $(versionedsharedir)
@@ -2386,6 +2387,7 @@ src/AutoConf.hs: Makefile src/AutoConf.hs.in $(PRINT_PY_CONSTANTS) \
 	    -DPKGLIBDIR="$(libdir)/ganeti" \
 	    -DSHAREDIR="$(prefix)/share/ganeti" \
 	    -DVERSIONEDSHAREDIR="$(versionedsharedir)" \
+	    -DPYTHONDIR="$(pythondir)" \
 	    -DDRBD_BARRIERS="$(DRBD_BARRIERS)" \
 	    -DDRBD_NO_META_FLUSH="$(DRBD_NO_META_FLUSH)" \
 	    -DSYSLOG_USAGE="$(SYSLOG_USAGE)" \
diff --git a/src/AutoConf.hs.in b/src/AutoConf.hs.in
--- a/src/AutoConf.hs.in
+++ b/src/AutoConf.hs.in
@@ -157,6 +157,9 @@ sharedir = "SHAREDIR"
 versionedsharedir :: String
 versionedsharedir = "VERSIONEDSHAREDIR"
 
+pythondir :: String
+pythondir = "PYTHONDIR"
+
 drbdBarriers :: String
 drbdBarriers = "DRBD_BARRIERS"
 
diff --git a/src/Ganeti/Path.hs b/src/Ganeti/Path.hs
--- a/src/Ganeti/Path.hs
+++ b/src/Ganeti/Path.hs
@@ -188,5 +188,5 @@ getInstReasonFilename instName = instanceReasonDir `pjoin` instName
 
 -- | The path to the Python executable for starting jobs.
 jqueueExecutorPy :: IO FilePath
-jqueueExecutorPy = return $ versionedsharedir
-                            </> "ganeti" </> "jqueue" </> "exec.py"
+jqueueExecutorPy = return $ pythondir
+                           </> "ganeti" </> "jqueue" </> "exec.py"
diff --git a/src/Ganeti/Query/Exec.hs b/src/Ganeti/Query/Exec.hs
--- a/src/Ganeti/Query/Exec.hs
+++ b/src/Ganeti/Query/Exec.hs
@@ -99,12 +99,12 @@ spawnJobProcess jid = withErrorLogAt CRITICAL (show jid) $
   do
     use_debug <- isDebugMode
     env_ <- (M.toList . M.insert "GNT_DEBUG" (if use_debug then "1" else "0")
-            . M.insert "PYTHONPATH" AC.versionedsharedir
+            . M.insert "PYTHONPATH" AC.pythondir
             . M.fromList)
            `liftM` getEnvironment
     execPy <- P.jqueueExecutorPy
     logDebug $ "Executing " ++ AC.pythonPath ++ " " ++ execPy
-               ++ " with PYTHONPATH=" ++ AC.versionedsharedir
+               ++ " with PYTHONPATH=" ++ AC.pythondir
 
     (master, child) <- pipeClient connectConfig
     let (rh, wh) = clientToHandle child

ecb11d'>gexp: #:references-graphs accepts and honors &lt;gexp-input&gt; records.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/gexp.scm (lower-reference-graphs)[tuple-&gt;gexp-input]: Add
‘gexp-input?’ case.
(gexp-&gt;derivation): Update docstring.
* doc/guix.texi (G-Expressions): Adjust accordingly.
* tests/gexp.scm ("references-file, non-default output"): New test.

Reviewed-by: Maxim Cournoyer &lt;maxim.cournoyer@gmail.com&gt;
Change-Id: I595cb75da0867ab8ab44552887dc06ed1d23315e
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-12-22 00:31:40 +0100'>2023-12-22</span></td><td><a href='/guix/commit/tests/gexp.scm?id=d9190abbd20f15ea5b55abdd51e1376f05055850'>gexp: Add compiler for &lt;gexp-input&gt;.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/gexp.scm (gexp-input-compiler): New procedure.
* tests/gexp.scm ("gexp references non-existent output")
("gexp-input, as first-class input"): New tests.
* doc/guix.texi (G-Expressions): Document it.

Reviewed-by: Maxim Cournoyer &lt;maxim.cournoyer@gmail.com&gt;
Change-Id: I95b58d6e4d77a54364026b4324fbb00125a9402e
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-11-25 16:29:25 +0100'>2023-11-25</span></td><td><a href='/guix/commit/tests/gexp.scm?id=9b48cf8cdd5718bc35828b3c4c9abe84122dad96'>tests: Import (guix build syscalls) when (guix build store-copy) is used.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes a test failure introduced in
189525412e3d803f3f77e15ec4a62aaa57f65a2d.

* guix/progress.scm: Autoload (guix build syscalls).
* tests/gexp.scm ("gexp-&gt;derivation, store copy"): Add (guix build
syscalls) to the list of imported modules.  Use ‘with-imported-modules’
rather than #:modules.

Change-Id: I8d3fe90f564ef4b1a340f34cee6c08a741f7b836
</span></span></td><td>Ludovic Courtès</td></tr>