Remove local-only symlink and debug file

This commit is contained in:
2026-05-19 12:58:49 -04:00
parent c55a54796a
commit 2641c84ee3
2 changed files with 0 additions and 28 deletions
-1
View File
@@ -1 +0,0 @@
/work/personal/roux/personal-recipes
-27
View File
@@ -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)