Revision 75d1edf8 hscan.hs

b/hscan.hs
35 35
    , optShowHelp  :: Bool     -- ^ Just show the help
36 36
    } deriving Show
37 37

  
38
instance CLI.CLIOptions Options where
39
    showVersion = optShowVer
40
    showHelp    = optShowHelp
41

  
38 42
-- | Default values for the command line options.
39 43
defaultOptions :: Options
40 44
defaultOptions  = Options
......
141 145
main = do
142 146
  cmd_args <- System.getArgs
143 147
  (opts, clusters) <- CLI.parseOpts cmd_args "hscan" options
144
                      defaultOptions optShowHelp
145

  
146
  when (optShowVer opts) $ do
147
         putStr $ CLI.showVersion "hscan"
148
         exitWith ExitSuccess
148
                      defaultOptions
149 149

  
150 150
  let odir = optOutPath opts
151 151
      nlen = maximum . map length $ clusters

Also available in: Unified diff