feat: parses single application

2 files changed, 12 insertions, 2 deletions

diff --git a/lambda-calcul/haskell/src/Minilang/Lambda/Parser.hs b/lambda-calcul/haskell/src/Minilang/Lambda/Parser.hs
index 8e97d46..e60d761 100644
--- a/lambda-calcul/haskell/src/Minilang/Lambda/Parser.hs
+++ b/lambda-calcul/haskell/src/Minilang/Lambda/Parser.hs
@@ -13,7 +13,7 @@ type Parser = Parsec Void Text
 data ParseError = ParseError Text
   deriving (Eq, Show)
 
-data AST = Sym Text | Abs [Text] AST
+data AST = Sym Text | Abs [Text] AST | App AST AST
   deriving (Eq, Show)
 
 parse :: Text -> Either ParseError AST
@@ -21,7 +21,14 @@ parse =
   first (ParseError . pack . errorBundlePretty) . Text.Megaparsec.parse ast ""
 
 ast :: Parser AST
-ast = try lambda <|> try sym
+ast = try lambda <|> try sym <|> try app
+
+app :: Parser AST
+app =
+  between
+    lpar
+    rpar
+    (App <$> ast <*> ast)
 
 lambda :: Parser AST
 lambda =
diff --git a/lambda-calcul/haskell/test/Minilang/Lambda/ParserSpec.hs b/lambda-calcul/haskell/test/Minilang/Lambda/ParserSpec.hs
index ea7cd89..b52017a 100644
--- a/lambda-calcul/haskell/test/Minilang/Lambda/ParserSpec.hs
+++ b/lambda-calcul/haskell/test/Minilang/Lambda/ParserSpec.hs
@@ -20,6 +20,9 @@ spec = parallel $ do
         nestedAbs = Abs vars (Sym body)
      in parse ("(lam (" <> Text.unwords vars <> ") " <> body <> ")") `shouldBe` Right nestedAbs
 
+  prop "parses an application" $ \(Identifier ident1) (Identifier ident2) ->
+    parse ("(" <> ident1 <> " " <> ident2 <> ")") `shouldBe` Right (App (Sym ident1) (Sym ident2))
+
 newtype Identifier = Identifier {unIdent :: Text}
   deriving (Eq, Show)