Commit pending changes: check-recipes tool and reconstructed test file

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

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`
+                    items
-                        [ StepIngredient (Ingredient "water" (Just (Quantity (3 % 2) (Just "cups") False)) Nothing)
+                        `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`
+                    items
-                        [ StepIngredient (Ingredient "gelatine" (Just (Quantity 3 (Just "tsp") False)) Nothing)
+                        `shouldBe` [ StepIngredient (Ingredient "gelatine" (Just (Quantity 3 (Just "tsp") False)) Nothing)
-                        ]
+                                   ]
 
     describe "Recipe references" $ do
         it "parses a recipe reference" $ do