|
@@ -30,9 +30,11 @@ import qualified Data.List as List
|
|
|
-- | All the actions that walrus may request from a backend
|
|
|
data BackendAction =
|
|
|
-- | Recieve new email
|
|
|
- DATA |
|
|
|
- -- | Verify if a backend will handle the addresses
|
|
|
- WILLHANDLE deriving (Show, Read, Eq, Ord, Bounded, Enum)
|
|
|
+ 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)
|
|
|
|
|
|
-- | The network data of a client (IP and port)
|
|
|
data ClientIdentity = ClientIdentity {_clientIp :: IP, _clientPort :: Int} deriving (Show, Read, Ord, Eq)
|