From e683f156b7eb8e761c254704538914d86f309801 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 28 Apr 2017 17:00:17 -0400
Subject: control window and chatting

Works!
---
 Log.hs | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'Log.hs')

diff --git a/Log.hs b/Log.hs
index cfbffea..ac250a1 100644
--- a/Log.hs
+++ b/Log.hs
@@ -7,12 +7,12 @@ import Hash
 import Memory
 import JSON
 import SessionID
+import DotDir
 
 import Data.Char
 import Data.Time.Clock.POSIX
 import qualified Data.ByteString.Lazy as L
 import System.IO
-import System.Posix
 import System.Directory
 import System.FilePath
 import Control.Exception
@@ -55,16 +55,14 @@ type Timestamp = POSIXTime
 type Logger = AnyMessage -> IO ()
 
 logDir :: IO FilePath
-logDir = do
-	home <- homeDirectory <$> (getUserEntryForID =<< getEffectiveUserID)
-	return $ home </> ".debug-me" </> "log"
+logDir = (</> "log") <$> dotDir
 
 withSessionLogger :: SessionID -> (Logger -> IO a) -> IO a
 withSessionLogger sessionid a = bracket setup cleanup go
   where
 	setup = do
 		dir <- logDir
-		createDirectoryIfMissing True dir
+		createDirectoryIfMissing False dir
 		let logfile = sessionLogFile dir sessionid
 		putStrLn $ "** debug-me is logging to " ++ logfile
 		return logfile
-- 
cgit v1.2.3