Fix path for serial file

[ganeti-github.git] / src / Ganeti / Path.hs

diff --git a/src/Ganeti/Path.hs b/src/Ganeti/Path.hs
index 9383c18..0a7daf3 100644 (file)
--- a/src/Ganeti/Path.hs
+++ b/src/Ganeti/Path.hs
@@ -106,7 +106,7 @@ queueDir = dataDirP "queue"
 
 -- | Job queue serial file.
 jobQueueSerialFile :: IO FilePath
-jobQueueSerialFile = dataDirP "serial"
+jobQueueSerialFile = queueDir `pjoin` "serial"
 
 -- | Job queue archive directory.
 jobQueueArchiveSubDir :: FilePath