15 lines
324 B
Haskell
15 lines
324 B
Haskell
module Main where
|
|
|
|
import Lib
|
|
import System.Environment
|
|
|
|
main :: IO ()
|
|
main = do
|
|
args <- getArgs
|
|
case args of
|
|
[fn] -> do
|
|
md <- readFile fn
|
|
sequence_ $ sequence . fmap print <$> getMails md
|
|
_ -> do
|
|
print "please call with markdown-file"
|