servant-serf-0.3.0.1: source/library/ServantSerf/Type/Depth.hs

module ServantSerf.Type.Depth where

data Depth
    = Deep
    | Shallow
    deriving (Eq, Show)

fromString :: String -> Maybe Depth
fromString x = case x of
  "deep" -> Just Deep
  "shallow" -> Just Shallow
  _ -> Nothing