{-# LANGUAGE OverloadedStrings #-}
module NetSpider.Spider.Config
( Config(..),
defConfig,
Host,
Port,
LogLevel(..)
) where
import Control.Monad.Logger (LogLevel(..))
import Data.Greskell (Key)
import Network.Greskell.WebSocket (Host, Port)
import qualified Network.Greskell.WebSocket as Gr
import NetSpider.Graph (VNode)
data Config n na fla =
Config
{ wsHost :: Gr.Host,
wsPort :: Gr.Port,
nodeIdKey :: Key VNode n,
logThreshold :: LogLevel
}
defConfig :: Config n na fla
defConfig =
Config
{ wsHost = "localhost",
wsPort = 8182,
nodeIdKey = "@node_id",
logThreshold = LevelWarn
}