diff options
| author | Yuchen Pei <hi@ypei.me> | 2022-05-30 16:22:44 +1000 |
|---|---|---|
| committer | Yuchen Pei <hi@ypei.me> | 2022-05-30 16:22:44 +1000 |
| commit | c96f8f6c820d43a55388f0307f3a6de9471ebb10 (patch) | |
| tree | d28b4a77c03a4bb50b9ee0ea5d87074ace254e60 /src/Main.hs | |
| parent | 231b58693759be1174a3866e469f170387c22376 (diff) | |
linting
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 |