module System.Wlog.LoggerName
( LoggerName (..)
, loggerNameF
) where
import Data.Hashable (Hashable)
import Data.SafeCopy (base, deriveSafeCopySimple)
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, string)
import Universum
newtype LoggerName = LoggerName
{ loggerName :: String
} deriving (Show, IsString, Eq, Hashable)
deriveSafeCopySimple 0 'base ''LoggerName
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 string . loggerName
loggerNameF :: Format r (LoggerName -> r)
loggerNameF = build