diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-11-05 21:55:17 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-11-05 21:55:17 +0000 |
| commit | 5e87b6ef983a11257eafec7fa1d8216bbe9a300e (patch) | |
| tree | 26faa9b61570fddc1bdb9335b786f9ac4d7df705 /src | |
| parent | 2a83f299b4fe25ee876fdd051de7f8980b216ab4 (diff) | |
fixed variants bug in GFCC.Linearize: l. 64,46 'r' must be 'p'
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/GFCC/Linearize.hs | 2 | ||||
| -rw-r--r-- | src/GF/GFCC/doc/gfcc.txt | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/GFCC/Linearize.hs b/src/GF/GFCC/Linearize.hs index b7b419f7d..7147afdcf 100644 --- a/src/GF/GFCC/Linearize.hs +++ b/src/GF/GFCC/Linearize.hs @@ -61,7 +61,7 @@ compute mcfg lang args = comp where proj r p = case (r,p) of (_, FV ts) -> FV $ lmap (proj r) ts - (FV ts, _ ) -> FV $ lmap (\t -> proj t r) ts + (FV ts, _ ) -> FV $ lmap (\t -> proj t p) ts (W s t, _) -> kks (s ++ getString (proj t p)) _ -> comp $ getField r (getIndex p) diff --git a/src/GF/GFCC/doc/gfcc.txt b/src/GF/GFCC/doc/gfcc.txt index 0eca6192c..6a78a62f6 100644 --- a/src/GF/GFCC/doc/gfcc.txt +++ b/src/GF/GFCC/doc/gfcc.txt @@ -363,6 +363,7 @@ compute gfcc lang args = comp where proj r p = case (r,p) of (_, FV ts) -> FV $ Prelude.map (proj r) ts + (FV ts, _ ) -> FV $ Prelude.map (\t -> proj t p) ts (W s t, _) -> kks (s ++ getString (proj t p)) _ -> comp $ getField r (getIndex p) |