Browse Source

More action types

Marcos Dumay de Medeiros 8 years ago
parent
commit
b8855c11e1
1 changed files with 5 additions and 3 deletions
  1. 5 3
      src/Walrus/Backend/Metadata.hs

+ 5 - 3
src/Walrus/Backend/Metadata.hs

@@ -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)