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/")