Skip to content

Commit a157594

Browse files
committed
Fix ParseSpec
1 parent 8ac03a0 commit a157594

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

test/ParseSpec.hs

+3-3
Original file line numberDiff line numberDiff line change
@@ -43,17 +43,17 @@ spec =
4343

4444
context "lambda expression" $ do
4545
it "can pares lambda expression" $
46-
parse "lambda hoge : Bool . foo" `shouldSuccess`
46+
parse "lambda hoge . foo" `shouldSuccess`
4747
Term.Lambda x "hoge" (Term.Variable x "foo")
4848

4949
it "can apply lambda" $
50-
parse "(lambda hoge : Bool . hoge) 10" `shouldSuccess`
50+
parse "(lambda hoge . hoge) 10" `shouldSuccess`
5151
Term.Apply x
5252
(Term.Lambda x "hoge" (Term.Variable x "hoge"))
5353
(Term.Int x 10)
5454

5555
it "can apply multiple argument" $
56-
parse "(lambda hoge : Bool . lambda fuga : Int . fuga) true 10" `shouldSuccess`
56+
parse "(lambda hoge . lambda fuga . fuga) true 10" `shouldSuccess`
5757
Term.Apply x
5858
(Term.Apply x
5959
(Term.Lambda x "hoge"

0 commit comments

Comments
 (0)