-statExpr (StgApp _ [] lvs)
- = countOne Literals
-statExpr (StgApp _ _ lvs)
- = countOne Applications
-
-statExpr (StgCon con as lvs)
- = countOne ConstructorApps
-
-statExpr (StgPrim op as lvs)
- = countOne PrimitiveApps
-
-statExpr (StgSCC ty l e)
- = statExpr e
+statExpr (StgApp _ _) = countOne Applications
+statExpr (StgLit _) = countOne Literals
+statExpr (StgConApp _ _) = countOne ConstructorApps
+statExpr (StgOpApp _ _ _) = countOne PrimitiveApps
+statExpr (StgSCC l e) = statExpr e