module DDC.Core.Salt.Name.PrimControl
( PrimControl (..)
, readPrimControl)
where
import DDC.Base.Pretty
import Control.DeepSeq
data PrimControl
= PrimControlFail
| PrimControlReturn
deriving (Eq, Ord, Show)
instance NFData PrimControl
instance Pretty PrimControl where
ppr pc
= case pc of
PrimControlFail -> text "fail#"
PrimControlReturn -> text "return#"
readPrimControl :: String -> Maybe PrimControl
readPrimControl str
= case str of
"fail#" -> Just $ PrimControlFail
"return#" -> Just $ PrimControlReturn
_ -> Nothing