From: Ramakrishnan Muthukrishnan 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/file/URI:LIT:krugkidfnzsc4/frontends//%22?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