Add constructor-wrapping functions to Data.Builder.Catenable.Bytes

This makes it easier for library users to write code that can
be migrated to other implementations of Builder.

Author: andrewthad

src/Data/Builder/Catenable/Bytes.hs

@@ -15,6 +15,11 @@ module Data.Builder.Catenable.Bytes
     -- * Create
   , bytes
   , byteArray
+    -- * Mimic data constructors
+  , cons
+  , snoc
+  , append
+  , empty
   ) where
 
 import Prelude hiding (length)
@@ -84,3 +89,19 @@ bytes !b = Cons b Empty
 
 byteArray :: ByteArray -> Builder
 byteArray !b = Cons (Bytes.fromByteArray b) Empty
+
+snoc :: Builder -> Bytes -> Builder
+{-# inline snoc #-}
+snoc = Snoc
+
+cons :: Bytes -> Builder -> Builder
+{-# inline cons #-}
+cons = Cons
+
+empty :: Builder
+{-# inline empty #-}
+empty = Empty
+
+append :: Builder -> Builder -> Builder
+{-# inline append #-}
+append = Append