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