use fmap to make things more clear

[yorgey.git] / hw8 / Party.hs

diff --git a/hw8/Party.hs b/hw8/Party.hs
index 84330068a92983cf8728d43c8f302777f5496c35..0ca0e1e9e06be3b2fffe92eca044f10ad18e466b 100644 (file)
--- 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