nix-community/nixpkgs-update
1
1
Fork 0
mirror of https://github.com/nix-community/nixpkgs-update.git synced 2024-08-16 09:30:45 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #171 from bhipple/fix/logFname

Browse Source 
Emit logfile names with ISO 8601 standard dates
This commit is contained in:
Ryan Mulligan 2020-03-29 19:13:57 -07:00 committed by GitHub
commit 423f23d02a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/Update.hs
View File

@ -24,7 +24,7 @@ import Data.Maybe (catMaybes)
import qualified Data.Set as S
import qualified Data.Text as T
import qualified Data.Text.IO as T
import Data.Time.Calendar (toGregorian)
import Data.Time.Calendar (showGregorian)
import Data.Time.Clock (UTCTime, getCurrentTime, utctDay)
import qualified GH
import qualified Git
@ -60,12 +60,17 @@ log' logFile msg = do
runDate <- liftIO $ runM $ Time.runIO Time.runDate
liftIO $ T.appendFile logFile (runDate <> " " <> msg <> "\n")
logFileName :: IO String
logFileName = do
lDir <- logDir
now <- getCurrentTime
let logFile = lDir <> "/" <> showGregorian (utctDay now) <> ".log"
putStrLn ("Using log file: " <> logFile)
return logFile
updateAll :: Options -> Text -> IO ()
updateAll o updates = do
(year, month, day) <- getCurrentTime >>= return . toGregorian . utctDay
lDir <- logDir
let logFile = lDir <> "/" <> show year <> show month <> show day <> ".log"
putStrLn ("Using log file: " <> logFile)
logFile <- logFileName
let log = log' logFile
T.appendFile logFile "\n\n"
log "New run of nixpkgs-update"