From cdad4fbe15dbc42524d591463731898fa3d73e43 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 18 Nov 2014 20:29:31 -0400 Subject: propellor spin --- src/Propellor/CmdLine.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/Propellor/CmdLine.hs') diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs index ab6d8619..2f56c184 100644 --- a/src/Propellor/CmdLine.hs +++ b/src/Propellor/CmdLine.hs @@ -21,9 +21,9 @@ import qualified Propellor.Property.Docker.Shim as DockerShim import Utility.FileMode import Utility.SafeCommand -usage :: IO a -usage = do - putStrLn $ unlines +usage :: Handle -> IO a +usage h = do + hPutStrLn h $ unlines [ "Usage:" , " propellor" , " propellor hostname" @@ -46,21 +46,21 @@ processCmdLine = go =<< getArgs go ("--dump":f:c:[]) = withprivfield f c Dump go ("--edit":f:c:[]) = withprivfield f c Edit go ("--list-fields":[]) = return ListFields - go ("--help":_) = usage + go ("--help":_) = usage stdout go ("--update":h:[]) = return $ Update h go ("--boot":h:[]) = return $ Update h -- for back-compat go ("--continue":s:[]) = case readish s of Just cmdline -> return $ Continue cmdline Nothing -> errorMessage $ "--continue serialization failure (" ++ s ++ ")" go (h:[]) - | "--" `isPrefixOf` h = usage + | "--" `isPrefixOf` h = usage stderr | otherwise = return $ Run h go [] = do s <- takeWhile (/= '\n') <$> readProcess "hostname" ["-f"] if null s then errorMessage "Cannot determine hostname! Pass it on the command line." else return $ Run s - go _ = usage + go _ = usage stderr withprivfield s c f = case readish s of Just pf -> return $ f pf (Context c) -- cgit v1.2.3