1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [from code at
"/usr/include/postgresql/libpq-fe.h":71.1-86.17] *)
3 (* [by Matthias Blume
's ml
-nlffigen (version
0.9) for x86
-unix
] *)
4 (* Send comments
and suggestions to blume@research
.bell
-labs
.com
. Thanks
! *)
6 structure T_ExecStatusType
= struct
7 type t
= ET_
'ExecStatusType
.tag enum T
.typ
8 val typ
= T
.enum
: ET_
'ExecStatusType
.tag enum T
.typ
: t