rightConstr :: Constr
rightConstr    = mkConstr eitherDataType "Right" [] Prefix
rightConstr :: Constr
rightConstr    = mkConstr eitherDataType "Right" [] Prefix
rightConstr    = mkConstr eitherDataType "Right" [] Prefix