From ac22ed0d4f56f5686c1e3608aeeddf22ad699439 Mon Sep 17 00:00:00 2001 From: Shaun Kerr Date: Tue, 12 Mar 2019 13:58:21 +1300 Subject: [PATCH] actual fix --- beer.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/beer.hs b/beer.hs index 0aed8ce..10358c4 100644 --- a/beer.hs +++ b/beer.hs @@ -33,7 +33,7 @@ lyrc'b :: Integer -> ((Integer -> String) -> String) lyrc'b x = shic x lyrc'b'o "of beer" lyrc'w :: Integer -> ((Integer -> String) -> String) -lyrc'w x = shic x lyrc'b "of beer" +lyrc'w x = shic x lyrc'b "on the wall" lyrc :: Integer -> [((Integer -> String) -> String)] lyrc x = [