diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Main.hs | 2 | ||||
| -rw-r--r-- | src/Plugins/Mail.hs | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs index 2719a79..aad87e7 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -125,7 +125,7 @@ usage = (usageInfo header options) ++ footer info :: String info = "xmobar " ++ showVersion version ++ "\n (C) 2007 - 2010 Andrea Rossato " - ++ "\n (C) 2010 Jose A Ortega Ruiz\n " + ++ "\n (C) 2010 - 2011 Jose A Ortega Ruiz\n " ++ mail ++ "\n" ++ license mail :: String 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 |