diff options
| author | krangelov <kr.angelov@gmail.com> | 2020-03-05 12:24:01 +0100 |
|---|---|---|
| committer | krangelov <kr.angelov@gmail.com> | 2020-03-05 12:24:01 +0100 |
| commit | 9806232532b661f25e393f12ed8069085d522868 (patch) | |
| tree | 193d076d13c879d1f2684a26b6caf8cfe0d06419 /src/runtime/haskell-bind | |
| parent | 88f76ef6710180e4351652d7e84566a86def274a (diff) | |
fix the build after the change in the morphological API
Diffstat (limited to 'src/runtime/haskell-bind')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2.hsc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/runtime/haskell-bind/PGF2.hsc b/src/runtime/haskell-bind/PGF2.hsc index fd7580c3b..d3f61595c 100644 --- a/src/runtime/haskell-bind/PGF2.hsc +++ b/src/runtime/haskell-bind/PGF2.hsc @@ -1039,7 +1039,7 @@ tabularLinearizeAll lang e = unsafePerformIO $ data BracketedString = Leaf String -- ^ this is the leaf i.e. a single token | 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 -- the phrase. The 'FId' is an unique identifier for -- every phrase in the sentence. For context-free grammars @@ -1367,7 +1367,7 @@ instance Exception PGFError ----------------------------------------------------------------------- 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 literalCallbacks :: [(AbsName,[(Cat,LiteralCallback)])] |