gulpLogs :: FilePath -> IO [V.Vector Benchmark]
gulpLogs f = do
   conts <- getDirectoryContents f
   let justCsv = filter (isSuffixOf ".csv") conts
   let noHidden = filter (\a -> not (isPrefixOf "." a)) justCsv
   let toGulp = fmap (\a -> f </> a) noHidden
   logs <- sequence $ fmap parseLog toGulp
   return $ rights logs
gulpLogs :: FilePath -> IO [V.Vector Benchmark]
gulpLogs f = do
   conts <- getDirectoryContents f
   let justCsv = filter (isSuffixOf ".csv") conts
   let noHidden = filter (\a -> not (isPrefixOf "." a)) justCsv
   let toGulp = fmap (\a -> f </> a) noHidden
   logs <- sequence $ fmap parseLog toGulp
   return $ rights logs
gulpLogs f = do
   conts <- getDirectoryContents f
   let justCsv = filter (isSuffixOf ".csv") conts
   let noHidden = filter (\a -> not (isPrefixOf "." a)) justCsv
   let toGulp = fmap (\a -> f </> a) noHidden
   logs <- sequence $ fmap parseLog toGulp
   return $ rights logs