From b7b7a7c91cc861440dd541b5f4e9eb5b409bcce0 Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
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/Expr.hsc | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/runtime/haskell-bind/PGF2')

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