Basic concepts

1 files changed, 24 insertions, 0 deletions

diff --git a/src/Simple.hs b/src/Simple.hs
new file mode 100644
index 0000000..f461766
--- /dev/null
+++ b/src/Simple.hs
@@ -0,0 +1,24 @@
+module Main (main) where
+
+import Postdelay.Scan
+
+import Control.Monad.IO.Class
+import Control.Monad.Trans.Except
+
+  
+main :: MonadIO m => m ()
+main = do
+  mailStr <- liftIO getContents
+  delay <- runExceptT $ scan mailStr
+  case delay of
+    Left err       -> do
+      liftIO . putStrLn $ show err
+      sendNow mailStr
+    Right Nothing  -> sendNow mailStr
+    Right (Just d) -> sendLater mailStr d
+
+sendNow :: MonadIO m => String -> m ()
+sendNow = undefined
+
+sendLater :: MonadIO m => String -> Delay -> m ()
+sendLater = undefined