summaryrefslogtreecommitdiff
path: root/src/Command/JobId.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Command/JobId.hs')
-rw-r--r--src/Command/JobId.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Command/JobId.hs b/src/Command/JobId.hs
index 9f531d6..eb51a66 100644
--- a/src/Command/JobId.hs
+++ b/src/Command/JobId.hs
@@ -31,9 +31,8 @@ instance Command JobIdCommand where
cmdJobId :: JobIdCommand -> CommandExec ()
cmdJobId (JobIdCommand ref) = do
- config <- getConfig
einput <- getEvalInput
JobId ids <- either (tfail . textEvalError) return =<<
- liftIO (runEval (evalJobReference config ref) einput)
+ liftIO (runEval (evalJobReference ref) einput)
liftIO $ T.putStrLn $ T.intercalate "." $ map textJobIdPart ids