From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
Date: Sat, 27 Dec 2014 06:15:10 +0000 (+0530)
Subject: use fmap to make things more clear
X-Git-Url: https://git.rkrishnan.org/%5B/%5D%20/uri/%22doc.html/flags/module-simplejson.tests.html?a=commitdiff_plain;h=ed50b1dc271223eda4d7c591a0f14fea7b9eef0a;p=yorgey.git

use fmap to make things more clear
---

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