avers-0.0.2: src/Avers/Index.hs

module Avers.Index where


import           Data.Text (Text)
import qualified Database.RethinkDB as R



data Index = Index
  { indexName :: Text
  , indexType :: IndexType
  }


data IndexType
  = SimpleIndex Text
  | CompoundIndex [R.Exp ()]
  | MultiIndex (R.Exp ())
  | ArbitraryIndex (R.Exp ()) Bool