Merge commit 'c073f23aba6d88a9479a20ccb53bb98a338638db' into type-nats
authorIavor S. Diatchki <iavor.diatchki@gmail.com>
Sun, 12 Jun 2011 23:22:40 +0000 (16:22 -0700)
committerIavor S. Diatchki <iavor.diatchki@gmail.com>
Sun, 12 Jun 2011 23:22:40 +0000 (16:22 -0700)
1  2 
compiler/hsSyn/Convert.lhs

@@@ -268,9 -268,9 +268,10 @@@ cvt_tyinst_hdr cxt tc ty
      collect (VarT tv)    = return [PlainTV tv]
      collect (ConT _)     = return []
      collect (TupleT _)   = return []
+     collect (UnboxedTupleT _) = return []
      collect ArrowT       = return []
      collect ListT        = return []
 +    collect (LiteralT _) = return []
      collect (AppT t1 t2)
        = do { tvs1 <- collect t1
             ; tvs2 <- collect t2