From 0469f4e97af7ea80d55ec9f2c44da3e103a95b1a Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Tue, 5 Sep 2017 10:57:40 +0200
Subject: [PATCH] added languageCode in the Haskell binding

---
 src/runtime/haskell-bind/PGF2.hsc | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/runtime/haskell-bind/PGF2.hsc b/src/runtime/haskell-bind/PGF2.hsc
index f56bb8a2d..03e899798 100644
--- a/src/runtime/haskell-bind/PGF2.hsc
+++ b/src/runtime/haskell-bind/PGF2.hsc
@@ -54,7 +54,7 @@ module PGF2 (-- * PGF
              compute,
 
              -- * Concrete syntax
-             ConcName,Concr,languages,concreteName,
+             ConcName,Concr,languages,concreteName,languageCode,
              -- ** Linearization
              linearize,linearizeAll,tabularLinearize,tabularLinearizeAll,bracketedLinearize,
              FId, LIndex, BracketedString(..), showBracketedString, flattenBracketedString,
@@ -159,6 +159,10 @@ languages p =
 concreteName :: Concr -> ConcName
 concreteName c = unsafePerformIO (peekUtf8CString =<< pgf_concrete_name (concr c))
 
+languageCode :: Concr -> String
+languageCode c = unsafePerformIO (peekUtf8CString =<< pgf_language_code (concr c))
+
+
 -- | Generates an exhaustive possibly infinite list of
 -- all abstract syntax expressions of the given type. 
 -- The expressions are ordered by their probability.