GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-28 04:08:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix the build after the change in the morphological API

Browse Source
This commit is contained in:
krangelov
2020-03-05 12:24:01 +01:00
parent 88f76ef671
commit 9806232532
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/runtime/haskell-bind/PGF2.hsc
View File

@@ -1039,7 +1039,7 @@ tabularLinearizeAll lang e = unsafePerformIO $
data BracketedString data BracketedString
= Leaf String -- ^ this is the leaf i.e. a single token = Leaf String -- ^ this is the leaf i.e. a single token
| BIND -- ^ the surrounding tokens must be bound together | BIND -- ^ the surrounding tokens must be bound together
| Bracket CId {-# UNPACK #-} !FId {-# UNPACK #-} String CId [BracketedString] | Bracket CId {-# UNPACK #-} !FId String CId [BracketedString]
-- ^ this is a bracket. The 'CId' is the category of -- ^ this is a bracket. The 'CId' is the category of
-- the phrase. The 'FId' is an unique identifier for -- the phrase. The 'FId' is an unique identifier for
-- every phrase in the sentence. For context-free grammars -- every phrase in the sentence. For context-free grammars
@@ -1367,7 +1367,7 @@ instance Exception PGFError
----------------------------------------------------------------------- -----------------------------------------------------------------------
type LiteralCallback = type LiteralCallback =
PGF -> (ConcName,Concr) -> String -> Int -> Int -> Maybe (Expr,Float,Int) PGF -> (ConcName,Concr) -> String -> String -> Int -> Maybe (Expr,Float,Int)
-- | Callbacks for the App grammar -- | Callbacks for the App grammar
literalCallbacks :: [(AbsName,[(Cat,LiteralCallback)])] literalCallbacks :: [(AbsName,[(Cat,LiteralCallback)])]