morley-0.4.0: test/Test/Lorentz/UStore/Migration/Batched/V1.hs

module Test.Lorentz.UStore.Migration.Batched.V1
  ( MyTemplate (..)
  ) where

import Lorentz.Base
import Lorentz.UStore

data MyTemplate = MyTemplate
  { bytes :: Integer |~> ByteString
  , int1 :: UStoreField Integer
  , int2 :: UStoreField Integer
  , code1 :: UStoreField $ Lambda () ()
  , code2 :: UStoreField $ Lambda Natural Integer
  , code3 :: UStoreField $ Lambda () ()
  } deriving stock Generic