{-# 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