Remove local-only symlink and debug file
This commit is contained in:
@@ -1 +0,0 @@
|
||||
/work/personal/roux/personal-recipes
|
||||
@@ -1,27 +0,0 @@
|
||||
module Main where
|
||||
|
||||
import System.Directory (listDirectory)
|
||||
import System.FilePath (takeExtension)
|
||||
import qualified Data.Text as T
|
||||
import qualified Data.Text.IO as TIO
|
||||
import Roux.Parser (parseCookFile)
|
||||
|
||||
main :: IO ()
|
||||
main = do
|
||||
entries <- listDirectory "/work/personal-recipes"
|
||||
let cookFiles = filter ((== ".cook") . takeExtension) (map ("/work/personal-recipes/" ++) entries)
|
||||
results <- mapM testParse cookFiles
|
||||
let failures = [(name, err) | Right (name, err) <- results]
|
||||
successes = length [() | Left name <- results]
|
||||
putStrLn $ "\n=== Summary ==="
|
||||
putStrLn $ "Total: " ++ show (length results)
|
||||
putStrLn $ "OK: " ++ show successes
|
||||
putStrLn $ "Failures: " ++ show (length failures)
|
||||
mapM_ (\(name, err) -> putStrLn $ "\n " ++ name ++ ":\n " ++ err) failures
|
||||
where
|
||||
testParse fp = do
|
||||
let name = reverse . takeWhile (/= '/') . reverse $ fp
|
||||
content <- TIO.readFile fp
|
||||
case parseCookFile content of
|
||||
Left err -> pure (Right (name, err))
|
||||
Right _ -> pure (Left name)
|
||||
Reference in New Issue
Block a user