module ZM.Type.BLOB (
BLOB(..),
UTF8Encoding(..),
UTF16LEEncoding(..),
FlatEncoding(..),
NoEncoding(..),
) where
import Control.DeepSeq
import Data.Flat
import Data.Model
import ZM.Type.Array
data BLOB encoding = BLOB {encoding::encoding,content::Bytes} deriving Generic
instance Model encoding => Model (BLOB encoding)
data UTF8Encoding = UTF8Encoding
deriving (Eq, Ord, Show, NFData, Generic, Flat, Model)
data UTF16LEEncoding = UTF16LEEncoding
deriving (Eq, Ord, Show, NFData, Generic, Flat, Model)
data FlatEncoding = FlatEncoding deriving (Eq, Ord, Show, NFData, Generic, Flat, Model)
data NoEncoding = NoEncoding deriving (Eq, Ord, Show, NFData, Generic, Flat, Model)