Changeset 20058 for src/Pugs/AST.hs

Timestamp:

03/04/08 22:06:31 (9 months ago)

Author:

gbacon

Message:

Build the library, but the executable still doesn't link. Why aren't we building an Executable with cabal?

Files:

• src/Pugs/AST.hs (modified) (3 diffs)

src/Pugs/AST.hs

@@ -196 +196 @@
             merge _ old = case old of
                 PEConstant{ pe_proto = MkRef (ICode oldCV) }
-                    | Just mc <- fromTypeable oldCV -> protoEntry
+                    | Just (mc :: VMultiCode) <- fromTypeable oldCV -> protoEntry
                         { pe_proto = MkRef . ICode $ protoCode
                             { mc_assoc      = code_assoc c `mappend` code_assoc mc
@@ -449 +449 @@
 readCodesFromRef :: VRef -> Eval [VCode]
 readCodesFromRef (MkRef (ICode c))
-    | Just mc <- fromTypeable c = do
+    | Just (mc :: VMultiCode) <- fromTypeable c = do
         let names@(pivot:_) = Set.elems (mc_variants mc)
         rvs <- fmap concat . forM names $ \var -> do
@@ -460 +460 @@
                 rvsGlobal <- readCodesFromRef =<< fromVal cvGlobal
                 return (rvsGlobal ++ rvs)
-    | Just cv <- fromTypeable c = return [cv]
+    | Just (cv :: VCode) <- fromTypeable c = return [cv]
 readCodesFromRef ref = do
     code <- fromVal =<< readRef ref