diff options
| author | aarne <unknown> | 2003-12-04 12:08:29 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2003-12-04 12:08:29 +0000 |
| commit | 15f94710f0403c760ed4ec1a8328c89400c4d94c (patch) | |
| tree | 93e1c81f180685a8a2afc4837aea511f48e312ca /src/GF/CF | |
| parent | 6a9dc9e5f5ddea8130b88a88d1e07f489d0906f9 (diff) | |
Added French for new API. Started alpha conv. Fixed bugs.
Diffstat (limited to 'src/GF/CF')
| -rw-r--r-- | src/GF/CF/Profile.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/CF/Profile.hs b/src/GF/CF/Profile.hs index 1b821d53a..edd35a18d 100644 --- a/src/GF/CF/Profile.hs +++ b/src/GF/CF/Profile.hs @@ -21,7 +21,7 @@ import List (nub) postParse :: CFTree -> Err Exp postParse tree = do - iterm <- errIn "postprocessing initial parse tree" $ tree2term tree + iterm <- errIn ("postprocessing parse tree" +++ prCFTree tree) $ tree2term tree return $ term2trm iterm -- an intermediate data structure @@ -93,4 +93,4 @@ term2trm (ITerm (fun, binds) terms) = where mkAbsR c e = foldr EAbs e c mkAppAtom a = mkApp (EAtom a) - mkApp = foldl EApp
\ No newline at end of file + mkApp = foldl EApp |