diff options
Diffstat (limited to 'src/GF/CF/Profile.hs')
| -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 |