edit error message

vidsinghal · vidsinghal · commit 0e5621674c07 · 2025-09-14T23:12:58.000-04:00
diff --git a/gibbon-compiler/src/Gibbon/Passes/AddCastInstructions.hs b/gibbon-compiler/src/Gibbon/Passes/AddCastInstructions.hs
@@ -77,7 +77,7 @@ addCastsExp fundef cenv env ex =
                   let cast_ins = Ext $ CastPtr var cursory_ty3
                   let cast_inst = [LetE (casted_var, [], CursorTy, cast_ins)]
                   pure (insts ++ cast_inst, nfcenv, nfenv, nvars ++ [casted_var])
-                _ -> error "Unexpected type!"
+                _ -> error $ "Unexpected type!" ++ show ex
           )
           ([], cenv, new_env, [])
           vars

Original file line number	Diff line number	Diff line change
`@@ -77,7 +77,7 @@ addCastsExp fundef cenv env ex =`
`77`	`77`	`let cast_ins = Ext $ CastPtr var cursory_ty3`
`78`	`78`	`let cast_inst = [LetE (casted_var, [], CursorTy, cast_ins)]`
`79`	`79`	`pure (insts ++ cast_inst, nfcenv, nfenv, nvars ++ [casted_var])`
`80`		`- _ -> error "Unexpected type!"`
	`80`	`+ _ -> error $ "Unexpected type!" ++ show ex`
`81`	`81`	`)`
`82`	`82`	`([], cenv, new_env, [])`
`83`	`83`	`vars`