indexConstr :: DataType -> ConIndex -> Constr
indexConstr dt idx = case datarep dt of
                        (AlgRep cs) -> cs !! (idx-1)
                        _           -> error "Data.Data.indexConstr"


-- | Gets the index of a constructor (algebraic datatypes only)
indexConstr :: DataType -> ConIndex -> Constr
indexConstr dt idx = case datarep dt of
                        (AlgRep cs) -> cs !! (idx-1)
                        _           -> error "Data.Data.indexConstr"


-- | Gets the index of a constructor (algebraic datatypes only)
indexConstr dt idx = case datarep dt of
                        (AlgRep cs) -> cs !! (idx-1)
                        _           -> error "Data.Data.indexConstr"


-- | Gets the index of a constructor (algebraic datatypes only)