cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

clean up Propellr.CmdLine exports

This commit is contained in:
Joey Hess 2014-11-18 23:50:38 -04:00
parent dac6a87419
commit 745f9e2685
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
propellor.cabal
View File

@ -101,6 +101,7 @@ Library
Propellor.Property.SiteSpecific.GitHome Propellor.Property.SiteSpecific.GitHome
Propellor.Property.SiteSpecific.JoeySites Propellor.Property.SiteSpecific.JoeySites
Propellor.Property.SiteSpecific.GitAnnexBuilder Propellor.Property.SiteSpecific.GitAnnexBuilder
Propellor.CmdLine
Propellor.Info Propellor.Info
Propellor.Message Propellor.Message
Propellor.PrivData Propellor.PrivData
@ -112,7 +113,6 @@ Library
Propellor.Types.PrivData Propellor.Types.PrivData
Other-Modules: Other-Modules:
Propellor.Types.Info Propellor.Types.Info
Propellor.CmdLine
Propellor.Git Propellor.Git
Propellor.Gpg Propellor.Gpg
Propellor.Server Propellor.Server

6
src/Propellor/CmdLine.hs
View File

@ -1,4 +1,7 @@
module Propellor.CmdLine where module Propellor.CmdLine (
defaultMain,
processCmdLine,
) where
import System.Environment (getArgs) import System.Environment (getArgs)
import Data.List import Data.List
@ -68,6 +71,7 @@ processCmdLine = go =<< getArgs
Just pf -> return $ f pf (Context c) Just pf -> return $ f pf (Context c)
Nothing -> errorMessage $ "Unknown privdata field " ++ s Nothing -> errorMessage $ "Unknown privdata field " ++ s
-- | Runs propellor on hosts, as controlled by command-line options.
defaultMain :: [Host] -> IO () defaultMain :: [Host] -> IO ()
defaultMain hostlist = do defaultMain hostlist = do
DockerShim.cleanEnv DockerShim.cleanEnv