/ - Diff - snf-ganeti - Greek Research and Technology Network's projects

       , optComplYesNo
       , oShowHelp
       , oShowVer
       , oShowComp
       , usageHelp
       , versionInfo
       , reqWithConversion
-...
       ) where
     import Control.Monad (foldM)
     import Data.Char (toLower)
     import Data.List (intercalate, stripPrefix)
     import Data.Maybe (fromMaybe)
     import qualified Data.Version
     import System.Console.GetOpt
     import System.Exit
-...
     optComplYesNo :: OptCompletion
     optComplYesNo = OptComplChoices ["yes", "no"]
     -- | Text serialisation for 'OptCompletion', used on the Python side.
     complToText :: OptCompletion -> String
     complToText (OptComplChoices choices) = "choices " ++ intercalate "," choices
     complToText compl =
       let show_compl = show compl
           stripped = stripPrefix "OptCompl" show_compl
       in map toLower $ fromMaybe show_compl stripped
     -- | Abrreviation for the option type.
     type GenericOptType a = (OptDescr (a -> Result a), OptCompletion)
-...
     class StandardOptions a where
       helpRequested :: a -> Bool
       verRequested  :: a -> Bool
       compRequested :: a -> Bool
       requestHelp   :: a -> a
       requestVer    :: a -> a
       requestComp   :: a -> a
     -- | Options to request help output.
     -- | Option to request help output.
     oShowHelp :: (StandardOptions a) => GenericOptType a
     oShowHelp = (Option "h" ["help"] (NoArg (Ok . requestHelp)) "show help",
                  OptComplNone)
-...
                 "show the version of the program",
                 OptComplNone)
     -- | Option to request completion information
     oShowComp :: (StandardOptions a) => GenericOptType a
     oShowComp =
       (Option "" ["help-completion"] (NoArg (Ok . requestComp) )
        "show completion info", OptComplNone)
     -- | Usage info.
     usageHelp :: String -> [GenericOptType a] -> String
     usageHelp progname =
-...
              (Data.Version.showVersion compilerVersion)
              os arch
     -- | Show completion info.
     completionInfo :: String -> [GenericOptType a] -> String
     completionInfo _ =
       unlines .
       map (\(Option shorts longs _ _, compinfo) ->
              let all_opts = map (\c -> ['-', c]) shorts ++ map ("--" ++) longs
              in intercalate "," all_opts ++ " " ++ complToText compinfo
+          )
     -- | Helper for parsing a yes\/no command line flag.
     parseYesNo :: Bool         -- ^ Default value (when we get a @Nothing@)
                -> Maybe String -- ^ Parameter value
-...
                         Left (ExitSuccess, usageHelp progname options))
                      , (verRequested parsed,
                         Left (ExitSuccess, versionInfo progname))
                      , (compRequested parsed,
                         Left (ExitSuccess, completionInfo progname options))
+                     ]
         (_, _, errs) ->
           Left (ExitFailure 2, "Command line error: "  ++ concat errs ++ "\n" ++

     data DaemonOptions = DaemonOptions
       { optShowHelp     :: Bool           -- ^ Just show the help
       , optShowVer      :: Bool           -- ^ Just show the program version
       , optShowComp     :: Bool           -- ^ Just show the completion info
       , optDaemonize    :: Bool           -- ^ Whether to daemonize or not
       , optPort         :: Maybe Word16   -- ^ Override for the network port
       , optDebug        :: Bool           -- ^ Enable debug messages
-...
     defaultOptions  = DaemonOptions
       { optShowHelp     = False
       , optShowVer      = False
       , optShowComp     = False
       , optDaemonize    = True
       , optPort         = Nothing
       , optDebug        = False
-...
     instance StandardOptions DaemonOptions where
       helpRequested = optShowHelp
       verRequested  = optShowVer
       compRequested = optShowComp
       requestHelp o = o { optShowHelp = True }
       requestVer  o = o { optShowVer  = True }
       requestComp o = o { optShowComp = True }
     -- | Abrreviation for the option type.
     type OptType = GenericOptType DaemonOptions
-...
     genericOpts :: [OptType]
     genericOpts = [ oShowHelp
                   , oShowVer
                   , oShowComp
+                  ]
     -- | Small wrapper over getArgs and 'parseOpts'.

       , oSelInst
       , oShowHelp
       , oShowVer
       , oShowComp
       , oStdSpec
       , oTieredSpec
       , oVerbose
-...
       , optSaveCluster :: Maybe FilePath -- ^ Save cluster state to this file
       , optShowCmds    :: Maybe FilePath -- ^ Whether to show the command list
       , optShowHelp    :: Bool           -- ^ Just show the help
       , optShowComp    :: Bool           -- ^ Just show the completion info
       , optShowInsts   :: Bool           -- ^ Whether to show the instance map
       , optShowNodes   :: Maybe [String] -- ^ Whether to show node status
       , optShowVer     :: Bool           -- ^ Just show the program version
-...
       , optSaveCluster = Nothing
       , optShowCmds    = Nothing
       , optShowHelp    = False
       , optShowComp    = False
       , optShowInsts   = False
       , optShowNodes   = Nothing
       , optShowVer     = False
-...
     instance StandardOptions Options where
       helpRequested = optShowHelp
       verRequested  = optShowVer
       compRequested = optShowComp
       requestHelp o = o { optShowHelp = True }
       requestVer  o = o { optShowVer  = True }
       requestComp o = o { optShowComp = True }
     -- * Helper functions
-...
     genericOpts :: [GenericOptType Options]
     genericOpts =  [ oShowVer
                    , oShowHelp
                    , oShowComp
+                   ]
     -- * Functions

Synnefo » snf-ganeti

Revision 097ad7ee