From d6b94c1d03b7e185e751e8d4f4fda8dc004e98c5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 1 Apr 2014 14:33:03 -0400 Subject: more debug --- Propellor/Property/Docker.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Propellor/Property/Docker.hs b/Propellor/Property/Docker.hs index 32ce847d..9eecc1a1 100644 --- a/Propellor/Property/Docker.hs +++ b/Propellor/Property/Docker.hs @@ -195,12 +195,12 @@ provisionContainer cid = containerDesc cid $ Property "provision" $ go lastline (v:rest) = case v of StdoutLine s -> do - debug ["stdout: ", s] + debug ["stdout: ", show s] maybe noop putStrLn lastline hFlush stdout go (Just s) rest StderrLine s -> do - debug ["stderr: ", s] + debug ["stderr: ", show s] maybe noop putStrLn lastline hFlush stdout hPutStrLn stderr s -- cgit v1.2.3