Commit 7c5db950 authored by David Himmelstrup's avatar David Himmelstrup
Browse files

Only look at .log files.

parent 7fc29a24
......@@ -84,7 +84,7 @@ report verbosity repos
-> do dotCabal <- defaultCabalDir
let srcDir = dotCabal </> "reports" </> remoteRepoName remoteRepo
contents <- getDirectoryContents srcDir
forM_ contents $ \logFile ->
forM_ (filter (\c -> takeExtension c == ".log") contents) $ \logFile ->
do inp <- readFile (srcDir </> logFile)
let (reportStr, buildLog) = read inp
case BuildReport.parse reportStr of
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment