Changeset 12464 for src/Pugs/Exp.hs
- Timestamp:
- 08/19/06 15:58:29 (2 years ago)
- Files:
-
- 1 modified
-
src/Pugs/Exp.hs (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Exp.hs
r12462 r12464 8 8 9 9 import Pugs.Internals 10 import {-# SOURCE #-} qualified Pugs.AST.Internals as OldAST10 import {-# SOURCE #-} qualified Pugs.AST.Internals (Exp) 11 11 import Pugs.Val 12 12 … … 16 16 type ExpCapt = Capt Exp 17 17 18 newtype ExpEmeritus = MkExpEmeritus { ee :: OldAST.Exp }18 newtype ExpEmeritus = MkExpEmeritus { ee :: Pugs.AST.Internals.Exp } 19 19 20 20 instance Eq ExpEmeritus where _ == _ = True
