From b7b7a7c91cc861440dd541b5f4e9eb5b409bcce0 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Tue, 29 Aug 2017 18:44:50 +0200 Subject: the embedded grammars now work with both the pure Haskell and the Haskell binding API --- src/runtime/haskell-bind/PGF2.hsc | 1 + src/runtime/haskell-bind/PGF2/Expr.hsc | 3 +++ 2 files changed, 4 insertions(+) (limited to 'src/runtime/haskell-bind') diff --git a/src/runtime/haskell-bind/PGF2.hsc b/src/runtime/haskell-bind/PGF2.hsc index 1d9d82f90..40d485b9a 100644 --- a/src/runtime/haskell-bind/PGF2.hsc +++ b/src/runtime/haskell-bind/PGF2.hsc @@ -38,6 +38,7 @@ module PGF2 (-- * PGF mkInt,unInt, mkFloat,unFloat, mkMeta,unMeta, + mkCId, -- ** Types Type, Hypo, BindType(..), startCat, readType, showType, 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 = -- cgit v1.2.3