loadClasses :: HscEnv -> [(String, String, ByteString)] -> IO ()
loadClasses hsc_env classes = when (not (null classes)) $ do
  dumpClassesIfSet hsc_env classes
  let dflags = hsc_dflags hsc_env
      components = stronglyConnCompFromEdgedVertices [ ((a, c), a, [b]) | (a, b, c) <- classes]
      f (AcyclicSCC c) = c
      f (CyclicSCC cs) = panic $ "loadClasses: Found impossible set of cyclic classes: "
                              ++ show (map (\(a,_) -> a) cs)
      classes' = map f components
      classesNames = map fst classes'
  debugTraceMsg dflags 3 $ text ( "Loading classes: " ++ (show classesNames))
  iservCmd hsc_env (LoadClasses classesNames (map snd classes'))
loadClasses :: HscEnv -> [(String, String, ByteString)] -> IO ()
loadClasses hsc_env classes = when (not (null classes)) $ do
  dumpClassesIfSet hsc_env classes
  let dflags = hsc_dflags hsc_env
      components = stronglyConnCompFromEdgedVertices [ ((a, c), a, [b]) | (a, b, c) <- classes]
      f (AcyclicSCC c) = c
      f (CyclicSCC cs) = panic $ "loadClasses: Found impossible set of cyclic classes: "
                              ++ show (map (\(a,_) -> a) cs)
      classes' = map f components
      classesNames = map fst classes'
  debugTraceMsg dflags 3 $ text ( "Loading classes: " ++ (show classesNames))
  iservCmd hsc_env (LoadClasses classesNames (map snd classes'))
loadClasses hsc_env classes = when (not (null classes)) $ do
  dumpClassesIfSet hsc_env classes
  let dflags = hsc_dflags hsc_env
      components = stronglyConnCompFromEdgedVertices [ ((a, c), a, [b]) | (a, b, c) <- classes]
      f (AcyclicSCC c) = c
      f (CyclicSCC cs) = panic $ "loadClasses: Found impossible set of cyclic classes: "
                              ++ show (map (\(a,_) -> a) cs)
      classes' = map f components
      classesNames = map fst classes'
  debugTraceMsg dflags 3 $ text ( "Loading classes: " ++ (show classesNames))
  iservCmd hsc_env (LoadClasses classesNames (map snd classes'))