From 93daaabf3df88b5fa16065c027c370cdf9b487b2 Mon Sep 17 00:00:00 2001 From: aarne Date: Sun, 28 Mar 2010 19:29:06 +0000 Subject: Action category, more doc in Phrasebook --- src/runtime/haskell/PGF/Linearize.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/runtime/haskell/PGF/Linearize.hs b/src/runtime/haskell/PGF/Linearize.hs index 3dadd1580..058d8281f 100644 --- a/src/runtime/haskell/PGF/Linearize.hs +++ b/src/runtime/haskell/PGF/Linearize.hs @@ -52,7 +52,7 @@ linTree pgf lang mark e = lin0 [] [] [] Nothing e return (listArray (bounds lins) [computeSeq seqid args | seqid <- elems lins]) PCoerce fid -> apply path xs (Just fid) f es Nothing -> mzero - Nothing -> apply path xs mb_fid _V [ELit (LStr "?")] -- function without linearization + Nothing -> apply path xs mb_fid _V [ELit (LStr ("[" ++ showCId f ++ "]"))] -- fun without lin where lookupProds (Just fid) prods = IntMap.lookup fid prods lookupProds Nothing prods -- cgit v1.2.3