-srtExpr table e@(StgApp f args) = e
-srtExpr table e@(StgLit l) = e
-srtExpr table e@(StgConApp con args) = e
-srtExpr table e@(StgOpApp op args ty) = e
+srtExpr _ e@(StgApp _ _) = e
+srtExpr _ e@(StgLit _) = e
+srtExpr _ e@(StgConApp _ _) = e
+srtExpr _ e@(StgOpApp _ _ _) = e