diff options
| author | aarne <aarne@chalmers.se> | 2010-03-28 19:29:06 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-03-28 19:29:06 +0000 |
| commit | 93daaabf3df88b5fa16065c027c370cdf9b487b2 (patch) | |
| tree | e8a35d5b7af1d44618b48f0d0267bc5ff110b341 /src/runtime/haskell/PGF/Linearize.hs | |
| parent | 3903b6b85222d5d266f859f4d029b12159cdf814 (diff) | |
Action category, more doc in Phrasebook
Diffstat (limited to 'src/runtime/haskell/PGF/Linearize.hs')
| -rw-r--r-- | src/runtime/haskell/PGF/Linearize.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |