From b0e3f25bad3aca5694c35784fa4c50841402827c Mon Sep 17 00:00:00 2001
From: Shaun Kerr <shaundavidkerr@gmail.com>
Date: Tue, 12 Mar 2019 13:09:41 +1300
Subject: [PATCH]  todo

---
 beer.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/beer.hs b/beer.hs
index f63f599..f14aba3 100644
--- a/beer.hs
+++ b/beer.hs
@@ -46,6 +46,8 @@ thap f x = x f
 thop :: (Integer -> String) -> [((Integer -> String) -> String)] -> [String]
 thop f l = map (thap f) l
 
+--TO DO
+--edit this function to convert digits to english words
 tran :: Integer -> String
 tran = show