#include #include module Bindings.Libgit2.Errors where #strict_import import Bindings.Libgit2.Common {- enum { GIT_OK = 0, GIT_ERROR = -1, GIT_ENOTFOUND = -3, GIT_EEXISTS = -4, GIT_EAMBIGUOUS = -5, GIT_EBUFS = -6, GIT_PASSTHROUGH = -30, GIT_REVWALKOVER = -31 }; -} #num GIT_OK #num GIT_ERROR #num GIT_ENOTFOUND #num GIT_EEXISTS #num GIT_EAMBIGUOUS #num GIT_EBUFS #num GIT_PASSTHROUGH #num GIT_REVWALKOVER {- typedef struct { char * message; int klass; } git_error; -} #starttype git_error #field message , CString #field klass , CInt #stoptype {- typedef enum { GITERR_NOMEMORY, GITERR_OS, GITERR_INVALID, GITERR_REFERENCE, GITERR_ZLIB, GITERR_REPOSITORY, GITERR_CONFIG, GITERR_REGEX, GITERR_ODB, GITERR_INDEX, GITERR_OBJECT, GITERR_NET, GITERR_TAG, GITERR_TREE, GITERR_INDEXER } git_error_t; -} #integral_t git_error_t #num GITERR_NOMEMORY #num GITERR_OS #num GITERR_INVALID #num GITERR_REFERENCE #num GITERR_ZLIB #num GITERR_REPOSITORY #num GITERR_CONFIG #num GITERR_REGEX #num GITERR_ODB #num GITERR_INDEX #num GITERR_OBJECT #num GITERR_NET #num GITERR_TAG #num GITERR_TREE #num GITERR_INDEXER #ccall giterr_last , IO (Ptr ) #ccall giterr_clear , IO ()