diff options
| author | krasimir <krasimir@chalmers.se> | 2010-01-05 07:05:41 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-01-05 07:05:41 +0000 |
| commit | 3ed19a482e796b0a62d234ec9ffd1981d5fee64e (patch) | |
| tree | 93e3cf1a0643480f704bd5243585a090678b04b2 /src/runtime/haskell/PGF/Macros.hs | |
| parent | 354269e17c63d6e750fb5626adac43b92479506a (diff) | |
printnames are now kept as String instead of Term in PGF
Diffstat (limited to 'src/runtime/haskell/PGF/Macros.hs')
| -rw-r--r-- | src/runtime/haskell/PGF/Macros.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/runtime/haskell/PGF/Macros.hs b/src/runtime/haskell/PGF/Macros.hs index af25de025..2f6282aa3 100644 --- a/src/runtime/haskell/PGF/Macros.hs +++ b/src/runtime/haskell/PGF/Macros.hs @@ -29,10 +29,6 @@ lookParamLincat :: PGF -> CId -> CId -> Term lookParamLincat pgf lang fun = lookMap tm0 fun $ paramlincats $ lookMap (error "no lang") lang $ concretes pgf -lookPrintName :: PGF -> CId -> CId -> Term -lookPrintName pgf lang fun = - lookMap tm0 fun $ printnames $ lookMap (error "no lang") lang $ concretes pgf - lookType :: PGF -> CId -> Type lookType pgf f = case lookMap (error $ "lookType " ++ show f) f (funs (abstract pgf)) of |