Mail now takes its alias as a second argument

This way we also avoid issue 30, although we're not solving the real
issue (which is that the commands parser cannot correctly parse
commands with a single argument unless they appear at the end of the
list).

1 files changed, 3 insertions, 2 deletions

diff --git a/src/Plugins/Mail.hs b/src/Plugins/Mail.hs
index 38cdaae..58431ce 100644
--- a/src/Plugins/Mail.hs
+++ b/src/Plugins/Mail.hs
@@ -30,11 +30,12 @@ import Data.Set (Set)
 import qualified Data.Set as S
 
 -- | A list of mail box names and paths to maildirs.
-data Mail = Mail [(String, FilePath)]
+data Mail = Mail [(String, FilePath)] String
     deriving (Read, Show)
 
 instance Exec Mail where
-    start (Mail ms) cb = do
+    alias (Mail _ a) = a
+    start (Mail ms _) cb = do
         vs <- mapM (const $ newTVarIO S.empty) ms
 
         let ts = map fst ms