diff options
Diffstat (limited to 'src/Plugins/Mail.hs')
| -rw-r--r-- | src/Plugins/Mail.hs | 5 |
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 |