Changeset 5697 for src/Pugs/Compile.hs
- Timestamp:
- 07/19/05 16:28:50 (3 years ago)
- svk:copy_cache_prev:
- 7696
- Files:
-
- 1 modified
-
src/Pugs/Compile.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Compile.hs
r5667 r5697 89 89 show PNil = "PNil" 90 90 show PNoop = "PNoop" 91 -- We don't show the raw Exp here to ease writing parsers for PIL (Exp 92 -- contains things like MkEnv, etc.). 91 93 show (PPos x _ z) = "(PPos " ++ show x ++ " Noop " ++ show z ++ ")" 92 94 show (PApp x y i z) = "(PApp " ++ show x ++ " " ++ show y ++ " " ++ show i ++ " " ++ show z ++ ")"
