From 91a1bc6c311cbf1efc48cde59a593ddf65409a5c Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Thu, 6 Jan 2011 19:35:13 +0100 Subject: 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). --- src/Plugins/Mail.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/Plugins/Mail.hs') 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 -- cgit v1.2.3