imm-1.2.1.0: src/bin/Executable.hs

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
--module Executable where

-- {{{ Imports
import           Imm
import           Imm.Database.JsonFile
import qualified Imm.Hooks.WriteFile   as WriteFile
import           Imm.HTTP.Simple
import           Imm.Logger.Simple
import           Imm.Prelude
import           Imm.XML.Simple

import           System.Exit
-- }}}

-- mkDummyCoHooks :: (MonadIO m, MonadThrow m) => () -> CoHooksF m ()
-- mkDummyCoHooks _ = CoHooksF coOnNewElement where
--   coOnNewElement _ _ = do
--     io $ putStrLn "No hook defined."
--     throwM $ ExitFailure 1


main :: IO ()
main = do
  logger <- defaultLogger
  manager <- defaultManager
  database <- defaultDatabase

  -- imm (mkCoHttpClient, manager) (mkCoDatabase, database) (mkCoLogger, logger) (mkDummyCoHooks, ()) (mkCoXmlParser, defaultPreProcess)
  imm (mkCoHttpClient, manager) (mkCoDatabase, database) (mkCoLogger, logger) (WriteFile.mkCoHooks, WriteFile.defaultSettings "/home/koral/feeds") (mkCoXmlParser, defaultPreProcess)