+ from_repr repr@(EnumRepr { enum_data_con = data_con }) expr
+ = do
+ var <- newLocalVar FSLIT("n") intPrimTy
+
+ let res = Case (Var var) (mkWildId intPrimTy) res_ty
+ $ (DEFAULT, [], error_expr)
+ : zipWith mk_alt (tyConDataCons vect_tc) cons
+
+ return $ Case expr (mkWildId (reprType repr)) res_ty
+ [(DataAlt data_con, [var], res)]
+ where
+ mk_alt data_con con = (LitAlt (mkDataConTagLit data_con), [], con)
+
+ error_expr = mkRuntimeErrorApp rUNTIME_ERROR_ID res_ty
+ . showSDoc
+ $ sep [text "Invalid NDP representation of", ppr vect_tc]
+