use fmap to make things more clear
authorRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Sat, 27 Dec 2014 06:15:10 +0000 (11:45 +0530)
committerRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Sat, 27 Dec 2014 06:15:10 +0000 (11:45 +0530)
hw8/Party.hs

index 84330068a92983cf8728d43c8f302777f5496c35..0ca0e1e9e06be3b2fffe92eca044f10ad18e466b 100644 (file)
@@ -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