diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/runtime/haskell-bind/CRuntimeFFI.hsc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/runtime/haskell-bind/CRuntimeFFI.hsc b/src/runtime/haskell-bind/CRuntimeFFI.hsc index f1ee62db5..7554170ed 100644 --- a/src/runtime/haskell-bind/CRuntimeFFI.hsc +++ b/src/runtime/haskell-bind/CRuntimeFFI.hsc @@ -72,11 +72,11 @@ readPGF filepath = return PGF {pgfPool = pool, pgf = pgf} -getConcr :: PGF -> Language -> Concr +getConcr :: PGF -> Language -> Maybe Concr getConcr p (CId lang) = unsafePerformIO $ BS.useAsCString lang $ \lng -> do cnc <- pgf_get_language (pgf p) lng - return (Concr cnc p) + return (if cnc==nullPtr then Nothing else Just (Concr cnc p)) |