diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2014-04-04 11:46:40 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2014-04-04 11:46:40 +0000 |
| commit | bd892b8a1dd74b7f1b0fd66f498bc7c9fef1bf78 (patch) | |
| tree | 26e0e5c5458d86866ea67ffca56e3a767f5df5ff /src/runtime/haskell-bind/PGF2 | |
| parent | dafaef7fec8ac776a56bb269a7c4e6ba1228d923 (diff) | |
fix the haskell binding to handle parse errors
Diffstat (limited to 'src/runtime/haskell-bind/PGF2')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2/FFI.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/runtime/haskell-bind/PGF2/FFI.hs b/src/runtime/haskell-bind/PGF2/FFI.hs index 45faef8eb..35ed15958 100644 --- a/src/runtime/haskell-bind/PGF2/FFI.hs +++ b/src/runtime/haskell-bind/PGF2/FFI.hs @@ -51,6 +51,9 @@ foreign import ccall "gu/type.h &gu_type__PgfLinNonExist" foreign import ccall "gu/type.h &gu_type__PgfExn" gu_type__PgfExn :: Ptr GuType + +foreign import ccall "gu/type.h &gu_type__PgfParseError" + gu_type__PgfParseError :: Ptr GuType foreign import ccall "gu/string.h gu_string_in" gu_string_in :: CString -> Ptr GuPool -> IO (Ptr GuIn) |