From e683f156b7eb8e761c254704538914d86f309801 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 28 Apr 2017 17:00:17 -0400 Subject: control window and chatting Works! --- DotDir.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 DotDir.hs (limited to 'DotDir.hs') diff --git a/DotDir.hs b/DotDir.hs new file mode 100644 index 0000000..f6dbb58 --- /dev/null +++ b/DotDir.hs @@ -0,0 +1,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 -- cgit v1.2.3