From 70baa60adcbe03ccceb2b855e5a999cb5ff55904 Mon Sep 17 00:00:00 2001
From: Ari Nugraha <nugrahaa878@gmail.com>
Date: Sat, 14 Nov 2020 08:34:53 +0700
Subject: [PATCH] implement add operation

---
 src/Language/Lambda/Parser.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Language/Lambda/Parser.hs b/src/Language/Lambda/Parser.hs
index 2465d0f..18b84ae 100644
--- a/src/Language/Lambda/Parser.hs
+++ b/src/Language/Lambda/Parser.hs
@@ -53,6 +53,7 @@ keyword :: String -> Parser ()
 keyword = void . lexeme . string
 
 doOperation "" = ""
+doOperation (x:'+':y:xs) = ubahKeChurch x ++ ubahKeChurch '+' ++ ubahKeChurch y ++ doOperation xs
 doOperation (x:xs) = ubahKeChurch x ++ doOperation xs
 
 ubahKeChurch :: Char -> [Char]
-- 
GitLab