diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs index 0907a9c..cf0f1af 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -34,7 +34,7 @@ import System.FilePath main :: IO () main = do - options <- execParser $ opts + options <- execParser opts (feeds, maildir, dbPath) <- getUserdata $ configPath options whenJust maildir $ \root -> do mapM_ (createDirectoryIfMissing True) @@ -48,9 +48,9 @@ main = do -- TODO: update db on interruption with the latest date processFeed :: FilePath -> Maybe FilePath -> FeedUserdata -> LoggingT IO () processFeed root dbPath feed = do - logInfoN $ "Fetching " <> (fuUrl feed) <> "..." + logInfoN $ "Fetching " <> fuUrl feed <> "..." msgs <- liftIO $ toMessagesFromUrl (fuUrl feed) (fuLastUpdated feed) - logInfoN $ "Writing " <> (T.pack $ show $ length msgs) <> " messages..." + logInfoN $ "Writing " <> T.pack (show $ length msgs) <> " messages..." liftIO $ mapM_ (writeMessage root) msgs whenJust dbPath $ \dbPath' -> liftIO $ updateLastUpdated' dbPath' feed msgs |