ptionsParser :: Parser Options
optionsParser =
    Options <$> parseDebug
  where
    parseDebug = switch $
           long "debug"
        <> short 'd'
        <> help "Set log level to DEBUG"

optionsParser :: Parser Options
optionsParser =
    Options <$> parseDebug
  where
    parseDebug = switch $
           long "debug"
        <> short 'd'
        <> help "Set log level to DEBUG"
optionsParser =
    Options <$> parseDebug
  where
    parseDebug = switch $
           long "debug"
        <> short 'd'
        <> help "Set log level to DEBUG"