module ELynx.Data.Tree.Named
( Named (..),
)
where
import qualified Data.ByteString.Builder as BB
import qualified Data.ByteString.Char8 as BS
import qualified Data.ByteString.Lazy.Char8 as BL
import Data.Double.Conversion.ByteString as BC
class Named a where
getName :: a -> BL.ByteString
instance Named () where
getName = const BL.empty
instance Named Int where
getName = BB.toLazyByteString . BB.intDec
instance Named Double where
getName = BL.fromStrict . toShortest
instance Named Char where
getName = BB.toLazyByteString . BB.char8
instance Named BL.ByteString where
getName = id
instance Named BS.ByteString where
getName = BL.fromStrict