leftConstr :: Constr
leftConstr     = mkConstr eitherDataType "Left"  [] Prefix
leftConstr :: Constr
leftConstr     = mkConstr eitherDataType "Left"  [] Prefix
leftConstr     = mkConstr eitherDataType "Left"  [] Prefix