module Language.Docker.Syntax.Protocol where import Prettyprinter data Protocol = TCP | UDP deriving (Int -> Protocol -> ShowS [Protocol] -> ShowS Protocol -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [Protocol] -> ShowS $cshowList :: [Protocol] -> ShowS show :: Protocol -> String $cshow :: Protocol -> String showsPrec :: Int -> Protocol -> ShowS $cshowsPrec :: Int -> Protocol -> ShowS Show, Protocol -> Protocol -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: Protocol -> Protocol -> Bool $c/= :: Protocol -> Protocol -> Bool == :: Protocol -> Protocol -> Bool $c== :: Protocol -> Protocol -> Bool Eq, Eq Protocol Protocol -> Protocol -> Bool Protocol -> Protocol -> Ordering Protocol -> Protocol -> Protocol forall a. Eq a -> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> a) -> (a -> a -> a) -> Ord a min :: Protocol -> Protocol -> Protocol $cmin :: Protocol -> Protocol -> Protocol max :: Protocol -> Protocol -> Protocol $cmax :: Protocol -> Protocol -> Protocol >= :: Protocol -> Protocol -> Bool $c>= :: Protocol -> Protocol -> Bool > :: Protocol -> Protocol -> Bool $c> :: Protocol -> Protocol -> Bool <= :: Protocol -> Protocol -> Bool $c<= :: Protocol -> Protocol -> Bool < :: Protocol -> Protocol -> Bool $c< :: Protocol -> Protocol -> Bool compare :: Protocol -> Protocol -> Ordering $ccompare :: Protocol -> Protocol -> Ordering Ord) instance Pretty Protocol where pretty :: forall ann. Protocol -> Doc ann pretty Protocol TCP = Doc ann "" pretty Protocol UDP = Doc ann "/udp"