From b787b5ad018a8c201d94c68909fb8f7bc2f87584 Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Tue, 25 Sep 2007 14:56:46 +0000 Subject: [PATCH] whitespace only --- src/GF/Conversion/SimpleToFCFG.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) =