diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Command/Run.hs | 7 |
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 () |