module Language.Docker.Parser.Cmd
  ( parseCmd,
  )
where

import Language.Docker.Parser.Arguments
import Language.Docker.Parser.Prelude
import Language.Docker.Syntax

parseCmd :: (?esc :: Char) => Parser (Instruction Text)
parseCmd :: (?esc::Char) => Parser (Instruction Text)
parseCmd = do
  (?esc::Char) => Text -> Parser ()
Text -> Parser ()
reserved Text
"CMD"
  Arguments Text -> Instruction Text
forall args. Arguments args -> Instruction args
Cmd (Arguments Text -> Instruction Text)
-> ParsecT DockerfileError Text Identity (Arguments Text)
-> Parser (Instruction Text)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ParsecT DockerfileError Text Identity (Arguments Text)
(?esc::Char) =>
ParsecT DockerfileError Text Identity (Arguments Text)
arguments