Changeset 20058 for src/Pugs/AST/Pad.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/Pad.hs (modified) (1 diff)

src/Pugs/AST/Pad.hs

@@ -80 +80 @@
     PEConstant{ pe_proto = MkRef (ICode newCV), pe_flags = flags }
     PEConstant{ pe_proto = MkRef (ICode oldCV) }
-    | Just newMC <- fromTypeable newCV
-    , Just oldMC <- fromTypeable oldCV
+    | Just (newMC :: VMultiCode) <- fromTypeable newCV
+    , Just (oldMC :: VMultiCode) <- fromTypeable oldCV
     = PEConstant
         { pe_type  = mc_type newMC -- XXX - Select a narrower type?