benchmark/Streamly/Benchmark/Data/Serialize/RecCompatible.hs · streamly

git.iko.soy/streamly

on a11fe00 help sign in

24 lines 863 B history raw

1{-# LANGUAGE TemplateHaskell #-}

3module Streamly.Benchmark.Data.Serialize.RecCompatible

4 ( RecCompatible(..)

5 , valRecCompatible

6 ) where

8--------------------------------------------------------------------------------

9-- Imports

10--------------------------------------------------------------------------------

12import Streamly.Internal.Data.Serialize (Serialize)

13import Streamly.Benchmark.Data.Serialize.TH (genLargeRecord)

15import qualified Streamly.Internal.Data.Serialize.TH as Serialize

17--------------------------------------------------------------------------------

18-- Code

19--------------------------------------------------------------------------------

21$(genLargeRecord "RecCompatible" 50)

22$(Serialize.deriveSerializeWith

23 (Serialize.defaultConfig {Serialize.recordSyntaxWithHeader = True})

24 [d|instance Serialize RecCompatible|])