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

whitespace only

Browse Source
This commit is contained in:
kr.angelov
2007-09-25 14:56:46 +00:00
parent 37d310f8c0
commit b787b5ad01
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Conversion/SimpleToFCFG.hs
View File

@@ -133,7 +133,7 @@ convertTerm cnc_defs selector (FV vars) lins = do term <-
convertTerm cnc_defs selector term lins convertTerm cnc_defs selector term lins
convertTerm cnc_defs selector (S ts) ((lbl_path,lin) : lins) = do projectHead lbl_path convertTerm cnc_defs selector (S ts) ((lbl_path,lin) : lins) = do projectHead lbl_path
foldM (\lins t -> convertTerm cnc_defs selector t lins) ((lbl_path,lin) : lins) (reverse ts) foldM (\lins t -> convertTerm cnc_defs selector t lins) ((lbl_path,lin) : lins) (reverse ts)
convertTerm cnc_defs selector (K (KS str)) ((lbl_path,lin) : lins) = convertTerm cnc_defs selector (K (KS str)) ((lbl_path,lin) : lins) =
do projectHead lbl_path do projectHead lbl_path
return ((lbl_path,Tok str : lin) : lins) return ((lbl_path,Tok str : lin) : lins)
convertTerm cnc_defs selector (K (KP (str:_)_))((lbl_path,lin) : lins) = convertTerm cnc_defs selector (K (KP (str:_)_))((lbl_path,lin) : lins) =