GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix in the Haskell binding: functionType should throw error if the function is not defined

Browse Source
This commit is contained in:
krasimir
2016-05-30 17:15:09 +00:00
parent dc67018ab7
commit 3fe2347bfd
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/runtime/haskell-bind/PGF2.hsc
View File

@@ -149,7 +149,9 @@ functionType p fn =
withGuPool $ \tmpPl -> do withGuPool $ \tmpPl -> do
c_fn <- newUtf8CString fn tmpPl c_fn <- newUtf8CString fn tmpPl
c_type <- pgf_function_type (pgf p) c_fn c_type <- pgf_function_type (pgf p) c_fn
peekType c_type if c_type == nullPtr
then throwIO (PGFError ("Function '"++fn++"' is not defined"))
else peekType c_type
where where
peekType c_type = do peekType c_type = do
cid <- (#peek PgfType, cid) c_type >>= peekUtf8CString cid <- (#peek PgfType, cid) c_type >>= peekUtf8CString