servant-serf-0.3.1.3: 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