Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Binary/EndBin_.z.c
#include <haskell2c.h> #include "cLowBinary.h" int hs_endBin (BinHandle bh) { return bh->highwater; }