setClassInfoPath :: HscEnv -> [FilePath] -> IO ()
setClassInfoPath hsc_env cp = do
  debugTraceMsg (hsc_dflags hsc_env) 3 $ text ( "Setting class info path: " ++ (show cp) )
  when (not (null cp)) $
    iservCmd hsc_env (SetClassInfoPath cp)
setClassInfoPath :: HscEnv -> [FilePath] -> IO ()
setClassInfoPath hsc_env cp = do
  debugTraceMsg (hsc_dflags hsc_env) 3 $ text ( "Setting class info path: " ++ (show cp) )
  when (not (null cp)) $
    iservCmd hsc_env (SetClassInfoPath cp)
setClassInfoPath hsc_env cp = do
  debugTraceMsg (hsc_dflags hsc_env) 3 $ text ( "Setting class info path: " ++ (show cp) )
  when (not (null cp)) $
    iservCmd hsc_env (SetClassInfoPath cp)