make both lines pastable together

This commit is contained in:
Joey Hess 2015-01-08 23:03:57 -04:00
parent 5585778e54
commit 4d0a732a30
1 changed files with 1 additions and 1 deletions

View File

@ -83,7 +83,7 @@ withPrivData' feed srclist c mkprop = addinfo $ mkprop $ \a ->
warningMessage $ "Missing privdata " ++ intercalate " or " fieldnames ++ " (for " ++ cname ++ ")" warningMessage $ "Missing privdata " ++ intercalate " or " fieldnames ++ " (for " ++ cname ++ ")"
liftIO $ putStrLn $ "Fix this by running:" liftIO $ putStrLn $ "Fix this by running:"
liftIO $ forM_ srclist $ \src -> do liftIO $ forM_ srclist $ \src -> do
putStrLn $ " propellor --set '" ++ show (privDataField src) ++ "' '" ++ cname ++ "'" putStrLn $ " propellor --set '" ++ show (privDataField src) ++ "' '" ++ cname ++ "' \\"
maybe noop (\d -> putStrLn $ " " ++ d) (describePrivDataSource src) maybe noop (\d -> putStrLn $ " " ++ d) (describePrivDataSource src)
putStrLn "" putStrLn ""
return FailedChange return FailedChange