From 069e3cf5e18bc0a4cecb1920eb8eb7adfda989d4 Mon Sep 17 00:00:00 2001 From: Filip Gralinski Date: Wed, 17 Jan 2018 22:07:54 +0100 Subject: [PATCH] fixes for the new geval --- Handler/ShowChallenge.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Handler/ShowChallenge.hs b/Handler/ShowChallenge.hs index d4a40c2..f3bfb79 100644 --- a/Handler/ShowChallenge.hs +++ b/Handler/ShowChallenge.hs @@ -258,10 +258,10 @@ outFileName = "out.tsv" getOutFilePath repoDir test = repoDir (T.unpack $ testName test) outFileName -doesOutExist repoDir (Entity _ test) = liftIO $ doesFileExist $ getOutFilePath repoDir test +doesOutExist repoDir (Entity _ test) = liftIO $ doesFileExist $ Handler.ShowChallenge.getOutFilePath repoDir test outForTest repoDir submissionId (Entity testId test) = do - checksum <- liftIO $ gatherSHA1ForCollectionOfFiles [getOutFilePath repoDir test] + checksum <- liftIO $ gatherSHA1ForCollectionOfFiles [Handler.ShowChallenge.getOutFilePath repoDir test] return Out { outSubmission=submissionId, outTest=testId,