Changeset 22990 for src/Pugs/Compile.hs

Timestamp:

11/12/08 10:01:29 (8 weeks ago)

Author:

audreyt

Message:

* GHC 6.10 support, part 3 of 3: Adjust for GADT's "rigid types" restriction.

Files:

• src/Pugs/Compile.hs (modified) (2 diffs)

src/Pugs/Compile.hs

@@ -77 +77 @@
         canCompile (name@('&':_) :: String, sym) = do
             (ref :: VRef) <- sym
-            case ref of
+            (case ref of
                 MkRef ICode{} -> do
                     codes <- readCodesFromRef ref
@@ -83 +83 @@
                 MkRef (IScalar sv) | scalar_iType sv == mkType "Scalar::Const"
                     -> doCode name =<< fromVal =<< scalar_fetch sv
-                _ -> return []
+                _ -> return []) :: Comp [PIL_Decl]
         canCompile ("@*END", sym) = do
             ref     <- sym