diff options
author | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-07-01 01:22:09 +0200 |
---|---|---|
committer | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-07-01 01:22:09 +0200 |
commit | a229331e45518bc7102acc6b19fc492c85321c4f (patch) | |
tree | ccf6091f2638500e210c55023addd36f6a0ca43f /hypsrc-test/run.hs | |
parent | db51ad0a5b2b29749f69fd82513adeedc8729735 (diff) |
Fix bug with diffing wrong files in hyperlinker test runner.
Diffstat (limited to 'hypsrc-test/run.hs')
-rwxr-xr-x | hypsrc-test/run.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/hypsrc-test/run.hs b/hypsrc-test/run.hs index 10b6c257..853c4f09 100755 --- a/hypsrc-test/run.hs +++ b/hypsrc-test/run.hs @@ -83,8 +83,8 @@ diff mdl ref out = do result <- system $ cmd ++ " " ++ refFile ++ " " ++ outFile unless (result == ExitSuccess) $ die "Failed to run `diff` command." where - refFile = outDir </> takeFileName mdl </> ".ref.nolinks" - outFile = outDir </> takeFileName mdl </> ".nolinks" + refFile = outDir </> takeBaseName mdl ++ ".ref.nolinks" + outFile = outDir </> takeBaseName mdl ++ ".nolinks" |