1 files changed, 19 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs
new file mode 100644
index 0000000..f3f8a5a
--- /dev/null
+++ b/src/Main.hs
@@ -0,0 +1,19 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+import System.Directory
+import Control.Monad.Extra
+import F2Md.Types
+import F2Md.Import
+import F2Md.Export
+import F2Md.Config
+import System.FilePath
+
+main :: IO ()
+main = do
+  (feeds, maildir) <- getUserdata "./.f2m.json"
+  whenJust maildir $ \root -> do
+    mapM_ (createDirectoryIfMissing True)
+      [root </> "new", root </> "cur", root </> "tmp"]
+    messages <- (fmap concat . sequence) $
+      (\feed -> toMessagesFromUrl (url feed) (lastUpdated feed)) <$> feeds
+    mapM_ (writeMessage root) messages