DL3014.hs

module Hadolint.Rule.DL3014 (rule) where

import Hadolint.Rule
import Hadolint.Shell (ParsedShell)
import qualified Hadolint.Shell as Shell
import Language.Docker.Syntax


rule :: Rule ParsedShell
rule = dl3014 <> onbuild dl3014
{-# INLINEABLE rule #-}

dl3014 :: Rule ParsedShell
dl3014 = simpleRule code severity message check
  where
    code = "DL3014"
    severity = DLWarningC
    message = "Use the `-y` switch to avoid manual input `apt-get -y install <package>`"

    check (Run (RunArgs args _)) = foldArguments (Shell.noCommands forgotAptYesOption) args
    check _ = True

    forgotAptYesOption cmd = isAptGetInstall cmd && not (hasYesOption cmd)
    isAptGetInstall = Shell.cmdHasArgs "apt-get" ["install"]
    hasYesOption cmd =
      Shell.hasAnyFlag ["y", "yes", "qq", "assume-yes"] cmd
        || ( Shell.countFlag "q" cmd == 2 )
        || ( Shell.countFlag "quiet" cmd == 2 )
        || "-q=2" `elem` Shell.getArgs cmd
{-# INLINEABLE dl3014 #-}