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

Replace "CId" with "Language" in type signature for PGF.tabularLinearizes

Browse Source
This commit is contained in:
john.j.camilleri
2013-04-02 09:19:08 +00:00
parent 078edf3e6b
commit 458ffc42d1
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell/PGF/Linearize.hs
View File

@@ -50,7 +50,7 @@ firstLin (_,arr)
-- | Creates a table from feature name to linearization. -- | Creates a table from feature name to linearization.
-- The outher list encodes the variations -- 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) tabularLinearizes pgf lang e = map cnv (linTree pgf lang e)
where where
cnv ((cat,_),lin) = zip (lbls cat) $ map (unwords . concatMap flattenBracketedString . snd . untokn "") (elems lin) cnv ((cat,_),lin) = zip (lbls cat) $ map (unwords . concatMap flattenBracketedString . snd . untokn "") (elems lin)