Prepend default repo to job ID only for repo job root

1 files changed, 5 insertions, 2 deletions

diff --git a/src/Command/Run.hs b/src/Command/Run.hs
index 7b34757..982a07a 100644
--- a/src/Command/Run.hs
+++ b/src/Command/Run.hs
@@ -146,7 +146,8 @@ mergeSources sources = do
 argumentJobSource :: [ JobName ] -> CommandExec JobSource
 argumentJobSource [] = emptyJobSource
 argumentJobSource names = do
-    ( config, jcommit ) <- getJobRoot >>= \case
+    jobRoot <- getJobRoot
+    ( config, jcommit ) <- case jobRoot of
         JobRootConfig config -> do
             commit <- sequence . fmap createWipCommit =<< tryGetDefaultRepo
             return ( config, commit )
@@ -158,7 +159,9 @@ argumentJobSource names = do
     jobtree <- case jcommit of
         Just commit -> (: []) <$> getCommitTree commit
         Nothing -> return []
-    let cidPart = map (JobIdTree Nothing "" . treeId) jobtree
+    let cidPart = case jobRoot of
+            JobRootConfig {} -> []
+            JobRootRepo {} -> map (JobIdTree Nothing "" . treeId) jobtree
     forM_ names $ \name ->
         case find ((name ==) . jobName) (configJobs config) of
             Just _  -> return ()