blob: 2144d9c8c6de5d59773d637aa505021909c11f79 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
{- Main module
-
- Copyright 2013 Raúl Benencia <rul@kalgan.cc>
-
- Licensed under the GNU GPL version 3 or higher
-
-}
module Main (main) where
import Control.Monad.Reader(runReaderT)
import Control.Monad.State(runStateT)
import System.Environment
import System.Exit
import System.FilePath(takeDirectory)
import Lazymail.Config(customConfig)
import Lazymail.Email
import Lazymail.Maildir
import Lazymail.Screen
import Lazymail.State
import Lazymail.Types
parse ["-h"] = usage >> exit
parse ["--help"] = usage >> exit
parse ["-v"] = version >> exit
parse ["--version"] = version >> exit
parse _ = run entryPoint
run :: Lazymail a -> IO (a, LazymailState)
run k =
let config = customConfig
state = initialState { basePath = initialPath config }
in runStateT (runReaderT k config) state
usage = putStrLn . unlines $ usageText where
usageText = ["Usage: ./Main [-vh] <maildirs>"
," where <maildirs> is a directory with Maildirs, or a Maildir itself."
," Lazymail will recursively search for Maildirs. "]
version = putStrLn "Haskell lazymail 0.0001"
exit = exitWith ExitSuccess
die = exitWith (ExitFailure 1)
main :: IO ()
main = do
args <- getArgs
parse args
putStrLn "Game over!"
|
