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 ()
reserved Text
"CMD"
  forall args. Arguments args -> Instruction args
Cmd forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (?esc::Char) => Parser (Arguments Text)
arguments