2017-02-06 12:33:43 +00:00
|
|
|
module Main where
|
|
|
|
|
|
|
|
|
|
import Lib
|
2017-02-06 14:57:43 +00:00
|
|
|
import System.Environment
|
2017-02-06 12:33:43 +00:00
|
|
|
|
|
|
|
|
main :: IO ()
|
2017-02-06 14:45:50 +00:00
|
|
|
main = do
|
2017-02-06 14:57:43 +00:00
|
|
|
args <- getArgs
|
|
|
|
|
case args of
|
|
|
|
|
[fn] -> do
|
|
|
|
|
md <- readFile fn
|
|
|
|
|
sequence_ $ sequence . fmap print <$> getMails md
|
|
|
|
|
_ -> do
|
|
|
|
|
print "please call with markdown-file"
|
