aboutsummaryrefslogtreecommitdiff
path: root/app/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'app/Main.hs')
-rw-r--r--app/Main.hs23
1 files changed, 2 insertions, 21 deletions
diff --git a/app/Main.hs b/app/Main.hs
index 3b9c3c9..b279fa7 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -1,22 +1,3 @@
-{-# LANGUAGE OverloadedStrings #-}
-module Main where
+module Main (module Run) where
-import Control.Monad.Logger ( runStderrLoggingT, filterLogger )
-import Email
-import Run
-import qualified DB
-import Config
-
-main :: IO ()
-main = do
- config <- getConfig
- initDirs config
- let db = getConfigDatabase config
- from = getConfigAddressFrom config
- to = getConfigAddressTo config
- infos = getConfigFeedInfos config
- tlength = getConfigTopicLength config
- level = getConfigLogLevel config
- runStderrLoggingT $ filterLogger (\_ level' -> level' >= level) $ do
- DB.init db
- checkFeeds (Just db) (sendFeedEntries from to tlength) infos
+import Run (main)