diff options
| author | john.j.camilleri <john.j.camilleri@chalmers.se> | 2013-04-02 09:19:08 +0000 |
|---|---|---|
| committer | john.j.camilleri <john.j.camilleri@chalmers.se> | 2013-04-02 09:19:08 +0000 |
| commit | 458ffc42d19e1b763b22bd5d6ae59475410fd5ce (patch) | |
| tree | 2791c59c476f34efe80e3633ce160208b6ccd1a7 /src | |
| parent | 078edf3e6ba762da039d5de696c54cee324be08d (diff) | |
Replace "CId" with "Language" in type signature for PGF.tabularLinearizes
Diffstat (limited to 'src')
| -rw-r--r-- | src/runtime/haskell/PGF/Linearize.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/runtime/haskell/PGF/Linearize.hs b/src/runtime/haskell/PGF/Linearize.hs index 39c59cd3f..d24e98d38 100644 --- a/src/runtime/haskell/PGF/Linearize.hs +++ b/src/runtime/haskell/PGF/Linearize.hs @@ -50,7 +50,7 @@ firstLin (_,arr) -- | Creates a table from feature name to linearization. -- The outher list encodes the variations -tabularLinearizes :: PGF -> CId -> Expr -> [[(String,String)]] +tabularLinearizes :: PGF -> Language -> Expr -> [[(String,String)]] tabularLinearizes pgf lang e = map cnv (linTree pgf lang e) where cnv ((cat,_),lin) = zip (lbls cat) $ map (unwords . concatMap flattenBracketedString . snd . untokn "") (elems lin) |