{-# LANGUAGE OverloadedStrings #-} module Language.Docker.Parser.Cmd ( parseCmd, ) where import Language.Docker.Parser.Arguments import Language.Docker.Parser.Prelude import Language.Docker.Syntax parseCmd :: Parser (Instruction Text) parseCmd :: Parser (Instruction Text) parseCmd = do 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) arguments