recollections-0.1.1.0: bench/Leaf.hs

{-# LANGUAGE TemplateHaskell #-}

module Leaf
  ( Tag(..)
  , Collection(..)
  , indices
  ) where

import Data.Recollections.TH
import GHC.Generics


data Tag = A | B | C | D
  deriving (Enum, Bounded)

mkCollection ''Tag
mkIndices ''Tag