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
                                                  <> help "Subtract from the current level"
                                                )
                          )
+                     <|> ( ($) <$> ( flag' Add ( long "inc"
+                                                 <> short 'i'
+                                                 <> help "Increase level by a preset amount (see ‘--by’)"
+                                               )
+                                     <|> flag' Sub ( long "dec"
+                                                     <> short 'd'
+                                                     <> help "Decrease level by a preset amount (see ‘--by’)"
+                                                   )
+                                   )
+                           <*> ( option auto ( long "by"
+                                               <> metavar "LEVEL"
+                                               <> value (read "5dB")
+                                               <> showDefault
+                                               <> help "Value to decrease/increase level by when using ‘--inc’ or ‘--dec’"
+                                             )
+                               )
+                         )
                    )
 
 main :: IO ()