1
0
Fork 0

Try another nix-jobs fix

This commit is contained in:
Malte Brandy 2021-01-13 20:11:46 +01:00
parent ac32c4a6c4
commit c0730c50e7

View file

@ -17,7 +17,6 @@ import Control.Concurrent.Async ( forConcurrently_
)
import Control.Concurrent.STM ( check
, retry
, swapTVar
)
import Control.Exception ( bracket
, catch
@ -104,6 +103,7 @@ instance ExecArg Text where
asArg = asArg . toString
asArgFromList = asArgFromList . fmap toString
drvBasename :: Text -> Text
drvBasename derivationName =
fromMaybe derivationName . viaNonEmpty last $ splitOn "/" derivationName
@ -371,7 +371,7 @@ main = do
sayErr [i|Missing executables #{show x}|]
exitFailure
args <- fmap toText <$> getArgs
case args of
handle (\(JobException e) -> sayErr e >> exitFailure) $ case args of
["realise-here", derivationName] -> job derivationName
["realise" , derivationName] -> do
jobId <- getEnv "JOB"