{- | 
  'main' is the main-function of spiritcore
-}

main :: IO ()
main = do
  let loL = mkListOfLectures timetable lectures wishList allRooms
  let allOneLP = mkAllOneLecturePossibilities startLectureList
  let sortBySS = sortByStudents allOneLP
  let sortByRELP = sortByRoomEconomy sortBySS
  let all = allTimetables startLectureList

  mainloop loL allOneLP sortByRELP sortBySS all True


{- | 
  'mainloop' is the mainloop-function with the menu
-}
main :: IO ()
main = do
  let loL = mkListOfLectures timetable lectures wishList allRooms
  let allOneLP = mkAllOneLecturePossibilities startLectureList
  let sortBySS = sortByStudents allOneLP
  let sortByRELP = sortByRoomEconomy sortBySS
  let all = allTimetables startLectureList

  mainloop loL allOneLP sortByRELP sortBySS all True


{- | 
  'mainloop' is the mainloop-function with the menu
-}
main = do
  let loL = mkListOfLectures timetable lectures wishList allRooms
  let allOneLP = mkAllOneLecturePossibilities startLectureList
  let sortBySS = sortByStudents allOneLP
  let sortByRELP = sortByRoomEconomy sortBySS
  let all = allTimetables startLectureList

  mainloop loL allOneLP sortByRELP sortBySS all True


{- | 
  'mainloop' is the mainloop-function with the menu
-}