!! removal
This commit is contained in:
parent
733dd74799
commit
452e6819d0
3 changed files with 10 additions and 10 deletions
|
@ -69,10 +69,10 @@ hookEnv k f = Just <$> mergeenv (fileenv f ++ keyenv)
|
|||
M.union (M.fromList l)
|
||||
<$> M.fromList <$> getEnvironment
|
||||
env s v = ("ANNEX_" ++ s, v)
|
||||
keyenv =
|
||||
[ env "KEY" (key2file k)
|
||||
, env "HASH_1" (hashbits !! 0)
|
||||
, env "HASH_2" (hashbits !! 1)
|
||||
keyenv = catMaybes
|
||||
[ Just $ env "KEY" (key2file k)
|
||||
, env "HASH_1" <$> headMaybe hashbits
|
||||
, env "HASH_2" <$> headMaybe (drop 1 hashbits)
|
||||
]
|
||||
fileenv Nothing = []
|
||||
fileenv (Just file) = [env "FILE" file]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue