recollections-0.1.1.0: bench/Depth/D1.hs

{-# LANGUAGE TemplateHaskell #-}

module Depth.D1
  ( Tag(..)
  , Collection(..)
  , indices
  ) where

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

data Tag
  = First
  | Down Lower.Tag
  | Last

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