Changeset 15395 for src/Pugs/Val

Timestamp:

03/01/07 16:43:32 (21 months ago)

Author:

audreyt

Message:

* Pugs.Val: Remove -boot circularity by restructing

the "Val" class into .Base.

Location:

src/Pugs/Val

Files:

• Base.hs (modified) (1 diff)
• Code.hs (modified) (2 diffs)

src/Pugs/Val/Base.hs

@@ -2 +2 @@
 
 module Pugs.Val.Base where
+
+import Pugs.Class
+type Val = Invocant Eval
+
 
 {-

src/Pugs/Val/Code.hs

@@ -3 +3 @@
 import Pugs.Internals
 import Pugs.Types
+import Pugs.Val.Base
 import Data.Monoid
 import qualified Data.Map as Map
@@ -9 +10 @@
 
 import {-# SOURCE #-} Pugs.Exp
-import {-# SOURCE #-} Pugs.Val