diff options
| author |  Fraser Tweedale <frase@frase.id.au> | 2011-04-08 10:08:11 +1000 |
|---|---|---|
| committer | Fraser Tweedale <frase@frase.id.au> | 2011-04-08 10:08:11 +1000 |
| commit | f5b2d650bb75dc7ca2f77dae59fb1ab7f7405e03 (patch) | |
| tree | b8dbb3f450e2ec18cdfe1128e9c21adfb6e2b953 /configure.hs | |
| parent | bd1bbc21fac4b36975d03638d15e9aab915927cf (diff) | |
recognise differently-named shaN programs
Diffstat (limited to 'configure.hs')
| -rw-r--r-- | configure.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/configure.hs b/configure.hs index f8cd577e9..c0e3d8106 100644 --- a/configure.hs +++ b/configure.hs @@ -20,10 +20,11 @@ tests = [ shaTestCases :: [Int] -> [TestCase] shaTestCases l = map make l - where - make n = - let cmd = "sha" ++ show n ++ "sum" - in TestCase cmd $ requireCmd cmd (cmd ++ " </dev/null") + where make n = + let + cmds = map (\x -> "sha" ++ show n ++ x ++ " </dev/null") ["", "sum"] + key = "sha" ++ show n + in TestCase key $ whichCmd key cmds tmpDir :: String tmpDir = "tmp" |