recollections-0.1.1.0: bench/Breadth/B4.hs

{-# LANGUAGE TemplateHaskell #-}

module Breadth.B4
  ( Tag(..)
  , Collection(..)
  , indices
  ) where

import Data.Recollections.TH
import GHC.Generics
import Leaf qualified

data Tag
  = N0 Leaf.Tag
  | N1 Leaf.Tag
  | N2 Leaf.Tag
  | N3 Leaf.Tag
  | End

mkCollection ''Tag
mkIndices ''Tag
mkBounded ''Tag
mkEnum ''Tag