~fkfd/sections

b59e91a6609392beb38056c94d5a25ff269dabcf — Frederick Yin 1 year, 5 months ago efa1e73
Use where for readability (?)
1 files changed, 1 insertions(+), 1 deletions(-)

M main.hs
M main.hs => main.hs +1 -1
@@ 11,7 11,7 @@ printTimetable scheme = do
              horizontal pod = map (courseInSlot pod) allDaysOfWeek
              courseInSlot pod dow = foldl (foldFunc pod dow) "" scheme
              foldFunc pod dow acc x =
                  if (dow ++ " " ++ pod) `elem` (snd $ snd x) then fst x else acc
                  if periodString `elem` periodsOfCourse then courseName else acc
                  where periodString = dow ++ " " ++ pod
                        periodsOfCourse = snd $ snd x
                        courseName = fst x