diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2015-06-21 20:58:15 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2015-06-21 20:58:15 +0200 |
| commit | 30b0412feaebc4ecbf6e50801ff043d283e02f1c (patch) | |
| tree | c91369ca7a11fe24c90c4c2d0789f8f8e88e80f4 /adjmix | |
| parent | 7e32fb2816f69b294a4b7be0ed28eb67164d2ffc (diff) | |
| download | trivmix-30b0412feaebc4ecbf6e50801ff043d283e02f1c.tar trivmix-30b0412feaebc4ecbf6e50801ff043d283e02f1c.tar.gz trivmix-30b0412feaebc4ecbf6e50801ff043d283e02f1c.tar.bz2 trivmix-30b0412feaebc4ecbf6e50801ff043d283e02f1c.tar.xz trivmix-30b0412feaebc4ecbf6e50801ff043d283e02f1c.zip | |
Added --inc and --dec
Diffstat (limited to 'adjmix')
| -rw-r--r-- | adjmix/Adjmix.hs | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/adjmix/Adjmix.hs b/adjmix/Adjmix.hs index 94416ac..0545395 100644 --- a/adjmix/Adjmix.hs +++ b/adjmix/Adjmix.hs | |||
| @@ -52,6 +52,23 @@ optionParser = Options | |||
| 52 | <> help "Subtract from the current level" | 52 | <> help "Subtract from the current level" |
| 53 | ) | 53 | ) |
| 54 | ) | 54 | ) |
| 55 | <|> ( ($) <$> ( flag' Add ( long "inc" | ||
| 56 | <> short 'i' | ||
| 57 | <> help "Increase level by a preset amount (see ‘--by’)" | ||
| 58 | ) | ||
| 59 | <|> flag' Sub ( long "dec" | ||
| 60 | <> short 'd' | ||
| 61 | <> help "Decrease level by a preset amount (see ‘--by’)" | ||
| 62 | ) | ||
| 63 | ) | ||
| 64 | <*> ( option auto ( long "by" | ||
| 65 | <> metavar "LEVEL" | ||
| 66 | <> value (read "5dB") | ||
| 67 | <> showDefault | ||
| 68 | <> help "Value to decrease/increase level by when using ‘--inc’ or ‘--dec’" | ||
| 69 | ) | ||
| 70 | ) | ||
| 71 | ) | ||
| 55 | ) | 72 | ) |
| 56 | 73 | ||
| 57 | main :: IO () | 74 | main :: IO () |