egisterActionParser :: Parser Action
registerActionParser = Register <$> parseSimpleBuckets
                                <*> parseExtendedBuckets
  where
    parseSimpleBuckets = option auto $
        long "simple_buckets"
        <> short 's'
        <> value 0
        <> showDefault
        <> help "Number of simple buckets"

    parseExtendedBuckets = option auto $
        long "extendend_buckets"
        <> short 'e'
        <> value 0
        <> showDefault
        <> help "Number of extended buckets"

registerActionParser :: Parser Action
registerActionParser = Register <$> parseSimpleBuckets
                                <*> parseExtendedBuckets
  where
    parseSimpleBuckets = option auto $
        long "simple_buckets"
        <> short 's'
        <> value 0
        <> showDefault
        <> help "Number of simple buckets"

    parseExtendedBuckets = option auto $
        long "extendend_buckets"
        <> short 'e'
        <> value 0
        <> showDefault
        <> help "Number of extended buckets"
registerActionParser = Register <$> parseSimpleBuckets
                                <*> parseExtendedBuckets
  where
    parseSimpleBuckets = option auto $
        long "simple_buckets"
        <> short 's'
        <> value 0
        <> showDefault
        <> help "Number of simple buckets"

    parseExtendedBuckets = option auto $
        long "extendend_buckets"
        <> short 'e'
        <> value 0
        <> showDefault
        <> help "Number of extended buckets"