From caf354c7e5bcb5142d8b4358824d22d3de122f34 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <hi@ypei.me>
Date: Fri, 27 May 2022 18:57:24 +1000
Subject: break apart the code, timestamp read imp.

---
 src/Main.hs | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 src/Main.hs

(limited to 'src/Main.hs')

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
-- 
cgit v1.2.3