hw-kafka-avro-6.1.2: example/Message.hs

{-# LANGUAGE DeriveGeneric     #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes       #-}
{-# LANGUAGE TemplateHaskell   #-}
module Message
( TestMessage(..)
, schema'TestMessage
) where

import Data.Avro
import Data.Avro.Deriving

deriveAvroFromByteString [r|
{
  "type": "record",
  "name": "TestMessage",
  "namespace": "hw.kafka.avro.test",
  "fields": [
    { "name": "id", "type": "long" },
    { "name": "name", "type": "string" },
    { "name": "is_active", "type": "boolean" },
    { "name": "timestamp", "type": "long" }
  ]
}
|]