diff options
| author | peb <unknown> | 2005-08-08 07:09:49 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-08-08 07:09:49 +0000 |
| commit | b03a738c4433f40c1eca2691fe09ea31d71475fe (patch) | |
| tree | e79aed3b4a8e9855aa69453176854bd6ccaf0985 /src | |
| parent | edab6db989e1f1e376c02154b767cf85e27d68ca (diff) | |
"Committed_by_peb"
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Conversion/GFCtoSimple.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/GF/Conversion/GFCtoSimple.hs b/src/GF/Conversion/GFCtoSimple.hs index 07a1da9e2..c6c7a2125 100644 --- a/src/GF/Conversion/GFCtoSimple.hs +++ b/src/GF/Conversion/GFCtoSimple.hs @@ -4,9 +4,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/06/23 14:32:44 $ --- > CVS $Author: aarne $ --- > CVS $Revision: 1.12 $ +-- > CVS $Date: 2005/08/08 08:09:49 $ +-- > CVS $Author: peb $ +-- > CVS $Revision: 1.13 $ -- -- Converting GFC to SimpleGFC -- @@ -94,9 +94,9 @@ convertConcrete gram (Abs decl args name) = Cnc ltyp largs term ltyp : largs = map (convertCType gram . lookupCType gram) (decl : args) expandTerm :: Env -> A.Term -> A.Term -expandTerm gram term = tracePrt "expanded term" prt $ +expandTerm gram term = -- tracePrt "expanded term" prt $ err error id $ expandLinTables (fst gram) $ - tracePrt "initial term" prt $ + -- tracePrt "initial term" prt $ term convertCType :: Env -> A.CType -> SLinType |