, case-insensitive     >=1

                     , clock                >=0.5

                     , containers           >=0.5

                     , data-default-class

                     , feed

                     , formatting           >=6.2

                     , funbot-ext-events    >=0.3

                     , hashable

                     , HTTP

                     , http-client          >=0.4.19

    , configuration

    , webListenerPort

    , webErrorLogFile

    , feedErrorLogFile

    , feedVisitInterval

    , settingsFilename

    , memosFilename

    , userOptsFilename

    , nicksFilename

    , quoteDir

webErrorLogFile = "state/web-error.log"

feedErrorLogFile = "state/feed-error.log"

feedVisitInterval = 5 :: Minute

-- | If you set a repo path in the configuration above ('stateRepo' field),

-- then this path is relative to that repo and the settings file will be

-- commited to Git. Otherwise, this path is relative to the bot process working

-- dir (or absolute), and Git won't be used.

where

import Data.Maybe (fromMaybe)

import Data.Default.Class (def)

import Data.Time.Interval (time)

import FunBot.ExtEvents (ExtEvent (NewsEvent), NewsItem (..))

import FunBot.Types

import Network.IRC.Fun.Bot.Logger

import Text.Feed.Query

import Text.Feed.Types (Feed, Item)

        pairs = M.toList $ stWatchedFeeds $ bsSettings state

        mkfeed (label, nf) = def

            { fcLabel  = T.unpack $ CI.original$ unFeedLabel $ label

            , fcUrl    = T.unpack $ nfUrl nf

            , fcActive = nfActive nf

            }

        feeds = map mkfeed pairs

    putStrLn "Bot: Feed watcher source loop running"

    run def

        { wcCollect       = collect push

        , wcLogError      = logError logger

        , wcCommandQueue  = Just cq

        , wcVisitInterval = time feedVisitInterval

        , wcMaxItems      = 3

        , wcFeeds         = feeds

        }