Remove StgRubbishArg and CmmArg
[ghc.git] / compiler / codeGen / StgCmmCon.hs
index c77816a..4255f10 100644 (file)
@@ -88,7 +88,7 @@ cgTopRhsCon dflags id con args =
              -- needs to poke around inside it.
             info_tbl = mkDataConInfoTable dflags con True ptr_wds nonptr_wds
 
-            get_lit (arg, _offset) = do { CmmExprArg (CmmLit lit) <- getArgAmode arg
+            get_lit (arg, _offset) = do { CmmLit lit <- getArgAmode arg
                                         ; return lit }
 
         ; payload <- mapM get_lit nv_args_w_offsets