diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2007-09-25 14:56:46 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2007-09-25 14:56:46 +0000 |
| commit | bb8e7d2d58c775f752df9b453bf7cf56f9a29bf1 (patch) | |
| tree | 5d30a1e6ad0ac16aa216dccb9768b0d38e3235d1 | |
| parent | 6613d5f40adfd5cbfa539aadbdbde5fc9383d28a (diff) | |
whitespace only
| -rw-r--r-- | src/GF/Conversion/SimpleToFCFG.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Conversion/SimpleToFCFG.hs b/src/GF/Conversion/SimpleToFCFG.hs index fc0177900..73c4f0b0e 100644 --- a/src/GF/Conversion/SimpleToFCFG.hs +++ b/src/GF/Conversion/SimpleToFCFG.hs @@ -133,7 +133,7 @@ convertTerm cnc_defs selector (FV vars) lins = do term <- convertTerm cnc_defs selector term lins 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) -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 return ((lbl_path,Tok str : lin) : lins) convertTerm cnc_defs selector (K (KP (str:_)_))((lbl_path,lin) : lins) = |