module System.Wlog.LoggerName
( LoggerName (..)
, loggerNameF
) where
import Universum
import Data.Hashable (Hashable)
import Data.Semigroup (Semigroup)
import qualified Data.Semigroup as Semigroup
import Data.String (IsString)
import Data.Text.Buildable (Buildable)
import qualified Data.Text.Buildable as Buildable
import Formatting (Format, bprint, build, stext)
newtype LoggerName = LoggerName
{ getLoggerName :: Text
} deriving (Show, IsString, Eq, Ord, Hashable)
instance Semigroup LoggerName where
LoggerName parent <> LoggerName suffix
| null parent = LoggerName suffix
| null suffix = LoggerName parent
| otherwise = LoggerName $ parent <> "." <> suffix
instance Monoid LoggerName where
mempty = ""
mappend = (Semigroup.<>)
instance Buildable LoggerName where
build = bprint stext . getLoggerName
loggerNameF :: Format r (LoggerName -> r)
loggerNameF = build