setCurrentFile :: (Proxy p) => FilePath -> FilePath -> Producer (StateP Options (ReaderP Settings p)) ClientDirective GHC.Ghc ()
setCurrentFile path name = do
  respond $ ClientLog "Cabal" "Initialize cabal and state"
  liftP $ writeRef refFileName $ GHC.fsLit name
  liftP $ writeRef refFilePath $ GHC.fsLit path
  liftP (view cabalFile) >>= traverse_ setCabalPerFileOpts
setCurrentFile :: (Proxy p) => FilePath -> FilePath -> Producer (StateP Options (ReaderP Settings p)) ClientDirective GHC.Ghc ()
setCurrentFile path name = do
  respond $ ClientLog "Cabal" "Initialize cabal and state"
  liftP $ writeRef refFileName $ GHC.fsLit name
  liftP $ writeRef refFilePath $ GHC.fsLit path
  liftP (view cabalFile) >>= traverse_ setCabalPerFileOpts
setCurrentFile path name = do
  respond $ ClientLog "Cabal" "Initialize cabal and state"
  liftP $ writeRef refFileName $ GHC.fsLit name
  liftP $ writeRef refFilePath $ GHC.fsLit path
  liftP (view cabalFile) >>= traverse_ setCabalPerFileOpts