diff options
| author | Krasimir Angelov <kr.angelov@gmail.com> | 2017-08-29 18:44:50 +0200 |
|---|---|---|
| committer | Krasimir Angelov <kr.angelov@gmail.com> | 2017-08-29 18:44:50 +0200 |
| commit | b7b7a7c91cc861440dd541b5f4e9eb5b409bcce0 (patch) | |
| tree | 352d48f11bea696fe257839f8f7dcf8e6b386fce /src/runtime/haskell-bind/PGF2/Expr.hsc | |
| parent | 62e5852669fc351d41d1c895822fd7e2cbddf803 (diff) | |
the embedded grammars now work with both the pure Haskell and the Haskell binding API
Diffstat (limited to 'src/runtime/haskell-bind/PGF2/Expr.hsc')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2/Expr.hsc | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/runtime/haskell-bind/PGF2/Expr.hsc b/src/runtime/haskell-bind/PGF2/Expr.hsc index 5b67ba097..af3afeef5 100644 --- a/src/runtime/haskell-bind/PGF2/Expr.hsc +++ b/src/runtime/haskell-bind/PGF2/Expr.hsc @@ -176,6 +176,9 @@ unMeta (Expr expr touch) = touch return (Just (fromIntegral (id :: CInt))) +-- | this functions is only for backward compatibility with the old Haskell runtime +mkCId x = x + -- | parses a 'String' as an expression readExpr :: String -> Maybe Expr readExpr str = |