From 1314c38e853701ed98f346c14bd6697650a23e2a Mon Sep 17 00:00:00 2001 From: James Brechtel Date: Tue, 19 May 2026 13:29:27 -0400 Subject: [PATCH] Commit pending changes: check-recipes tool and reconstructed test file --- app/check-recipes/Main.hs | 4 ++-- test/Roux/ParserSpec.hs | 12 ++++++------ 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/app/check-recipes/Main.hs b/app/check-recipes/Main.hs index 2b57b46..dd53e78 100644 --- a/app/check-recipes/Main.hs +++ b/app/check-recipes/Main.hs @@ -2,11 +2,11 @@ module Main (main) where +import qualified Data.Text.IO as TIO +import Roux.Parser (parseCookFile) import System.Directory (listDirectory) import System.Environment (getArgs) import System.FilePath (takeExtension, ()) -import qualified Data.Text.IO as TIO -import Roux.Parser (parseCookFile) main :: IO () main = do diff --git a/test/Roux/ParserSpec.hs b/test/Roux/ParserSpec.hs index 752070c..26b48bb 100644 --- a/test/Roux/ParserSpec.hs +++ b/test/Roux/ParserSpec.hs @@ -373,9 +373,9 @@ spec = do Left err -> expectationFailure ("parse failed: " <> err) Right recipe -> do let items = stepItems recipe - items `shouldBe` - [ StepIngredient (Ingredient "water" (Just (Quantity (3 % 2) (Just "cups") False)) Nothing) - ] + items + `shouldBe` [ StepIngredient (Ingredient "water" (Just (Quantity (3 % 2) (Just "cups") False)) Nothing) + ] it "parses quantity with trailing unit (no %)" $ do let input = "@gelatine{3tsp}" @@ -383,9 +383,9 @@ spec = do Left err -> expectationFailure ("parse failed: " <> err) Right recipe -> do let items = stepItems recipe - items `shouldBe` - [ StepIngredient (Ingredient "gelatine" (Just (Quantity 3 (Just "tsp") False)) Nothing) - ] + items + `shouldBe` [ StepIngredient (Ingredient "gelatine" (Just (Quantity 3 (Just "tsp") False)) Nothing) + ] describe "Recipe references" $ do it "parses a recipe reference" $ do