From 71642ae1bd5694f8c3ef46e8667cc21e9d523bf7 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 4 Aug 2017 08:52:08 -0400 Subject: [PATCH] Fix a test case which fails at the end of input. --- test/Data/Syntax/Assignment/Spec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/Data/Syntax/Assignment/Spec.hs b/test/Data/Syntax/Assignment/Spec.hs index 536007b26..f6ae18202 100644 --- a/test/Data/Syntax/Assignment/Spec.hs +++ b/test/Data/Syntax/Assignment/Spec.hs @@ -184,7 +184,7 @@ spec = do (symbol Palette *> children ( many (red `catchError` const blue) )) (makeState [node Palette 0 1 [node Green 1 2 []]]) `shouldBe` - None (Error (Info.Pos 1 2) [Blue] (Just Green)) + None (Error (Info.Pos 1 2) [] (Just Green)) it "handler that always matches with apply consumes and then errors" $ runAssignment headF "PG"