cluster/services/idm: fix stdout buffering for idm-nss-ready
This commit is contained in:
parent
7364def41d
commit
402f25ccc5
1 changed files with 7 additions and 0 deletions
|
@ -6,13 +6,20 @@ let
|
|||
} ''
|
||||
import Control.Monad.IO.Class
|
||||
import Control.Watchdog
|
||||
import System.IO
|
||||
import System.IO.Error
|
||||
import System.Posix.User
|
||||
|
||||
flushLogger :: WatchdogLogger String
|
||||
flushLogger taskErr delay = do
|
||||
defaultLogger taskErr delay
|
||||
hFlush stdout
|
||||
|
||||
main :: IO ()
|
||||
main = watchdog $ do
|
||||
setInitialDelay 300_000
|
||||
setMaximumDelay 30_000_000
|
||||
setLoggingAction flushLogger
|
||||
watch $ do
|
||||
check <- liftIO $ tryIOError $ getGroupEntryForName "infra_admins"
|
||||
case check of
|
||||
|
|
Loading…
Reference in a new issue