{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
module Imm.Hooks where
import Imm.Feed
import Imm.Logger
import Imm.Prelude
import Imm.Pretty
class Monad m => MonadImm m where
processNewElement :: Feed -> FeedElement -> m ()
onNewElement :: (MonadImm m, MonadLog m) => Feed -> FeedElement -> m ()
onNewElement feed element = do
logDebug $ "Unread element:" <+> pretty (getTitle element)
processNewElement feed element