ofpType :: Parser O.OfpType
ofpType = (<?> "OfpType") $ do
  ofptM <- fmap fromWord8 $ satisfy isOfpType
  case ofptM of
    Just t  -> return t
    Nothing -> mzero
ofpType :: Parser O.OfpType
ofpType = (<?> "OfpType") $ do
  ofptM <- fmap fromWord8 $ satisfy isOfpType
  case ofptM of
    Just t  -> return t
    Nothing -> mzero
ofpType = (<?> "OfpType") $ do
  ofptM <- fmap fromWord8 $ satisfy isOfpType
  case ofptM of
    Just t  -> return t
    Nothing -> mzero