rule :: Rule ParsedShell
rule = simpleRule code severity message check
  where
    code = "DL3005"
    severity = DLErrorC
    message = "Do not use apt-get dist-upgrade"
    check (Run (RunArgs args _)) =
      foldArguments (Shell.noCommands (Shell.cmdHasArgs "apt-get" ["dist-upgrade"])) args
    check _ = True

rule :: Rule ParsedShell
rule = simpleRule code severity message check
  where
    code = "DL3005"
    severity = DLErrorC
    message = "Do not use apt-get dist-upgrade"
    check (Run (RunArgs args _)) =
      foldArguments (Shell.noCommands (Shell.cmdHasArgs "apt-get" ["dist-upgrade"])) args
    check _ = True

rule = simpleRule code severity message check
  where
    code = "DL3005"
    severity = DLErrorC
    message = "Do not use apt-get dist-upgrade"
    check (Run (RunArgs args _)) =
      foldArguments (Shell.noCommands (Shell.cmdHasArgs "apt-get" ["dist-upgrade"])) args
    check _ = True
