From 3da926381a44733623e68aa6fae788035a0a4f82 Mon Sep 17 00:00:00 2001
From: Efim Kubishkin <efimkub@mail.ru>
Date: Tue, 19 Mar 2024 19:30:49 +0300
Subject: [PATCH] Add hlint warning

---
 lang/app/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lang/app/Main.hs b/lang/app/Main.hs
index 8614711..2639f29 100644
--- a/lang/app/Main.hs
+++ b/lang/app/Main.hs
@@ -7,7 +7,7 @@ append xs ys = λ xs . λ ys . case xs of
     Nil => ys
     Cons x' xs' => Cons x' (append xs' ys)
 -}
-f x y = (x + y)
+f = concat $ map (+ 1) [1, 2, 3]
 
 bodyOfAppend :: Expression
 bodyOfAppend =