From e563b8cdf617a9545919472f2f37bef6050e4e88 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Mar 2014 20:23:23 -0400 Subject: propellor spin --- PrivData.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'PrivData.hs') diff --git a/PrivData.hs b/PrivData.hs index 7d652701..e9233660 100644 --- a/PrivData.hs +++ b/PrivData.hs @@ -9,6 +9,7 @@ import Data.Maybe import Control.Monad import Types +import Property import Utility.Monad import Utility.PartialPrelude import Utility.Exception @@ -29,8 +30,7 @@ withPrivData :: PrivDataField -> (String -> IO Result) -> IO Result withPrivData field a = maybe missing a =<< getPrivData field where missing = do - hPutStrLn stderr $ "** Missing privdata " ++ show field - hFlush stderr + warningMessage $ "Missing privdata " ++ show field return FailedChange getPrivData :: PrivDataField -> IO (Maybe String) -- cgit v1.2.3