Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Don't include benchmark directories starting with _

  • Loading branch information...
commit d8658ac39f37cce8be8e3b288e27ddb077d06a35 1 parent fa4376e
@dmpots authored
Showing with 2 additions and 1 deletion.
  1. +2 −1  FindBench.hs
View
3  FindBench.hs
@@ -65,7 +65,8 @@ removeBadEntries :: FilePath -> [FilePath] -> IO [FilePath]
removeBadEntries baseDir dirs = do
let paths = map (baseDir </>) dirs
noFiles <- filterM (\d -> doesDirectoryExist (baseDir </> d)) dirs
- return (removeDotFiles noFiles)
+ let noUnderscores = filter (\d -> not ("_" `isPrefixOf` d)) noFiles
+ return (removeDotFiles noUnderscores)
moduleHeader :: String
moduleHeader = join "\n" [
Please sign in to comment.
Something went wrong with that request. Please try again.