snoyberg/keter
1
1
Fork 0
mirror of https://github.com/snoyberg/keter.git synced 2024-12-15 01:23:09 +03:00
Code Issues Projects Releases Wiki Activity

Attaching new process message

Browse Source
This commit is contained in:
Michael Snoyman 2012-05-22 21:49:11 +03:00
parent f134847e60
commit 833305e1ee
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Keter/Logger.hs
View File

@ -51,6 +51,8 @@ start lfout lferr = do
LogFile.close lfout
LogFile.close lferr
Attach (Handles min mout merr) -> do
LogFile.addChunk lfout "\n\nAttaching new process\n\n"
LogFile.addChunk lferr "\n\nAttaching new process\n\n"
hmClose min
let go mhandle lf =
case mhandle of