adjusted blacklist

app/Main.hs

@@ -41,7 +41,7 @@ module Main where
   main :: IO ()
   main = getArgs >>= process >>= finish where
     process :: [String] -> IO Bool
-    process [path] = runParser path >> return True
+    process [path] = printEvents path >> runParser path >> return True
     process args@[_, _] = generateJSON args >> return False
     process args@["--all", src, to] = processDirectory src to >> return False
     process _ = print "Please provide (1) a source and (2) a target file or provide '--all' and (1) a source and (2) a target directory" >> return True
@@ -52,7 +52,7 @@ module Main where
   printEvents :: FilePath -> IO ()
   printEvents path = do
     input <- BS.L.readFile path
-    forM_ (take 700 $ parseEvents input) $ \ev -> case ev of
+    forM_ (parseEvents input) $ \ev -> case ev of
       Left _ -> error "Failed to parse"
       Right event -> putStrLn (show (eEvent event) ++ " @" ++ show (posLine $ ePos event))
 
@@ -92,7 +92,7 @@ module Main where
       encodeFile (last args) $ buildData yaml
 
 
-  blackList = ["patch.yaml", "theses.yaml", "master-practical-training.yaml"] -- files not to parse when parsing the entire directory
+  blackList = ["patch.yaml"] -- files not to parse when parsing the entire directory
 
 
   -- | Processes all workflow definitions within the given directory (1) and writes the output files