From ed50b1dc271223eda4d7c591a0f14fea7b9eef0a Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org> Date: Sat, 27 Dec 2014 11:45:10 +0530 Subject: [PATCH] use fmap to make things more clear --- hw8/Party.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/hw8/Party.hs b/hw8/Party.hs index 8433006..0ca0e1e 100644 --- a/hw8/Party.hs +++ b/hw8/Party.hs @@ -74,5 +74,6 @@ getEmployeeList empls = let (f, ls) = sortedGL (maxFun (read empls)) main :: IO () main = do - empls <- readFile "company.txt" - putStrLn $ getEmployeeList empls + -- empls <- readFile "company.txt" + emplList <- fmap getEmployeeList (readFile "company.txt") + putStrLn emplList -- 2.45.2