optionsDescr :: [OptDescr (Options -> Options)]
optionsDescr =
    [ Option ['v'] ["verbose"]      (NoArg setVerbose)  "report each path"
    , Option ['n'] ["dry-run"]      (NoArg setDryRun)   "only report what would be removed"
    , Option ['s'] ["sh", "script"] (NoArg setScript)   "generate a shell script to remove files"
    , Option ['r'] ["rm", "remove"] (NoArg setRemove)   "actually remove files"
    , Option ['?'] ["help"]         (NoArg setHelp)     "help (this message)"
    ]
  where
    setVerbose opts = opts { optVerbose = True }
    setDryRun opts = opts { optRemove = OptDryRun }
    setScript opts = opts { optRemove = OptScript }
    setRemove opts = opts { optRemove = OptRemove }
    setHelp opts = opts { optHelp = True }
optionsDescr :: [OptDescr (Options -> Options)]
optionsDescr =
    [ Option ['v'] ["verbose"]      (NoArg setVerbose)  "report each path"
    , Option ['n'] ["dry-run"]      (NoArg setDryRun)   "only report what would be removed"
    , Option ['s'] ["sh", "script"] (NoArg setScript)   "generate a shell script to remove files"
    , Option ['r'] ["rm", "remove"] (NoArg setRemove)   "actually remove files"
    , Option ['?'] ["help"]         (NoArg setHelp)     "help (this message)"
    ]
  where
    setVerbose opts = opts { optVerbose = True }
    setDryRun opts = opts { optRemove = OptDryRun }
    setScript opts = opts { optRemove = OptScript }
    setRemove opts = opts { optRemove = OptRemove }
    setHelp opts = opts { optHelp = True }
optionsDescr =
    [ Option ['v'] ["verbose"]      (NoArg setVerbose)  "report each path"
    , Option ['n'] ["dry-run"]      (NoArg setDryRun)   "only report what would be removed"
    , Option ['s'] ["sh", "script"] (NoArg setScript)   "generate a shell script to remove files"
    , Option ['r'] ["rm", "remove"] (NoArg setRemove)   "actually remove files"
    , Option ['?'] ["help"]         (NoArg setHelp)     "help (this message)"
    ]
  where
    setVerbose opts = opts { optVerbose = True }
    setDryRun opts = opts { optRemove = OptDryRun }
    setScript opts = opts { optRemove = OptScript }
    setRemove opts = opts { optRemove = OptRemove }
    setHelp opts = opts { optHelp = True }