|
|
@@ -29,12 +29,16 @@ import qualified Data.List as List
|
|
|
|
|
|
-- | All the actions that walrus may request from a backend
|
|
|
data BackendAction =
|
|
|
- -- | Recieve new email
|
|
|
+ -- | Recieve new resource
|
|
|
DELIVER |
|
|
|
-- | Verify if a backend will handle the rcpt to addresses
|
|
|
WILLHANDLE |
|
|
|
-- | Verifies if accounts exist as in the SMTP VRFY command
|
|
|
- VERIFY deriving (Show, Read, Eq, Ord, Bounded, Enum)
|
|
|
+ VERIFY |
|
|
|
+ -- | Fetch a resource
|
|
|
+ FETCH |
|
|
|
+ -- | Delete a resource
|
|
|
+ DELETE deriving (Show, Read, Eq, Ord, Bounded, Enum)
|
|
|
|
|
|
-- | The network data of a client (IP and port)
|
|
|
data ClientIdentity = ClientIdentity {_clientIp :: IP, _clientPort :: Int} deriving (Show, Read, Ord, Eq)
|
