/usr/web/sources/contrib/fernan/nhc98/src/runtime/Builtin/cHGetFileName.c

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/runtime/Builtin/cHGetFileName.c


#include "haskell2c.h"

/* foreign import hGetFileNameC :: Handle -> CString */
char* hGetFileNameC (FileDesc* f)
{
  return f->path;
}