implicit log directory creation

michaxm · Feb 1, 2016 · 6ad0be2 · 6ad0be2
1 parent ead1b58
commit 6ad0be2
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/.gitignore b/.gitignore
@@ -2,7 +2,7 @@
 */#*#
 *_flymake.hs
 .stack-work
-log/*.log
+log
 tmp
 dist
 hadoop-rpc

diff --git a/log/empty b/log/empty
diff --git a/src/Control/Distributed/Task/Util/Logging.hs b/src/Control/Distributed/Task/Util/Logging.hs
@@ -1,11 +1,14 @@
 module Control.Distributed.Task.Util.Logging (logError, logWarn, logInfo, logDebug, logTrace, initLogging) where
 
+import System.Directory (createDirectoryIfMissing)
 import System.IO (stdout)
 import qualified System.Log.Logger as L
 import qualified System.Log.Handler as L (setFormatter)
 import qualified System.Log.Handler.Simple as L
 import qualified System.Log.Formatter as L
 
+import Control.Distributed.Task.Util.FileUtil
+
 logError, logWarn, logInfo, logDebug, logTrace :: String -> IO ()
 logError = simpleLog L.errorM
 logWarn = simpleLog L.warningM
@@ -21,6 +24,7 @@ initLogging :: L.Priority -> L.Priority -> FilePath -> IO ()
 initLogging stdoutLogLevel fileLogLevel logfile = do
   L.updateGlobalLogger L.rootLoggerName (L.removeHandler)
   L.updateGlobalLogger L.rootLoggerName (L.setLevel $ max' stdoutLogLevel fileLogLevel)
+  createDirectoryIfMissing True $ fst $ splitBasePath logfile
   addHandler' $ L.fileHandler logfile fileLogLevel
   addHandler' $ L.streamHandler stdout stdoutLogLevel
   where