DotDir.hs


1
2
3
4
5
6
7
8
9
10
11
12

module DotDir where

import System.Posix
import System.Directory
import System.FilePath

dotDir :: IO FilePath
dotDir = do
	home <- homeDirectory <$> (getUserEntryForID =<< getEffectiveUserID)
	let dir = home </> ".debug-me"
	createDirectoryIfMissing False dir
	return dir