walrus-backend/src/Walrus/Backend/Request.hs

module Walrus.Backend.Request where

import Data.Attoparsec.ByteString
import Data.Attoparsec.ByteString.Char8.Extras

data Request = DATA deriving (Show, Read, Eq, Ord, Bounded, Enum)

parseRequest :: Parser Request
parseRequest = parseEnumCI