Phase 3: End-of-line and inline block comment parsing

- Add pEndComment parser for -- end-of-line comments
- Add pInlineComment parser for [- ... -] block comments
- Update pText to stop before -- and [- sequences using notFollowedBy
- Add tests for both comment types (2 new tests, 19 total)

test/Roux/ParserSpec.hs

@@ -259,6 +259,40 @@ spec = do
                             }
             parseCookFile input `shouldBe` expected
 
+    describe "Comments" $ do
+        it "parses an end-of-line comment within a step" $ do
+            let input = "Mash until smooth -- alternatively, boil 'em first"
+            case parseCookFile input of
+                Left err -> expectationFailure ("parse failed: " <> err)
+                Right recipe -> do
+                    let body = NE.toList (sectionBody (NE.head (recipeSections recipe)))
+                    case body of
+                        [SecStep (Step items)] -> do
+                            let expected =
+                                    [ StepText "Mash until smooth "
+                                    , StepEndComment "alternatively, boil 'em first"
+                                    ]
+                            items `shouldBe` expected
+                        other -> expectationFailure ("expected single SecStep, got " <> show other)
+
+        it "parses an inline block comment" $ do
+            let input = "Slowly add @milk{4%cup} [- TODO change units to litres -], keep mixing"
+            case parseCookFile input of
+                Left err -> expectationFailure ("parse failed: " <> err)
+                Right recipe -> do
+                    let body = NE.toList (sectionBody (NE.head (recipeSections recipe)))
+                    case body of
+                        [SecStep (Step items)] -> do
+                            let expected =
+                                    [ StepText "Slowly add "
+                                    , StepIngredient (Ingredient "milk" (Just (Quantity 4 (Just "cup") False)) Nothing)
+                                    , StepText " "
+                                    , StepComment " TODO change units to litres "
+                                    , StepText ", keep mixing"
+                                    ]
+                            items `shouldBe` expected
+                        other -> expectationFailure ("expected single SecStep, got " <> show other)
+
     describe "EasyPancakes example" $ do
         let pancakeInput =
                 "-- TODO add source\n"