module GHC.Debug.Convention (socketDirectory) where import System.FilePath import System.Directory -- | The default socket directory in which to place unix domain sockets in -- ghc-debug-stub. socketDirectory :: IO FilePath socketDirectory :: IO FilePath socketDirectory = do FilePath xdgDir <- XdgDirectory -> FilePath -> IO FilePath getXdgDirectory XdgDirectory XdgData FilePath "" FilePath -> IO FilePath forall (m :: * -> *) a. Monad m => a -> m a return (FilePath xdgDir FilePath -> FilePath -> FilePath </> FilePath "ghc-debug/debuggee/")