diff options
Diffstat (limited to 'compiler/simplCore/CallArity.hs')
| -rw-r--r-- | compiler/simplCore/CallArity.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/CallArity.hs b/compiler/simplCore/CallArity.hs index 0186c67f4c..a93fe1f4c3 100644 --- a/compiler/simplCore/CallArity.hs +++ b/compiler/simplCore/CallArity.hs @@ -468,7 +468,7 @@ callArityAnal arity int (Lam v e) where (ae, e') = callArityAnal (arity - 1) (int `delVarSet` v) e --- Application. Increase arity for the called expresion, nothing to know about +-- Application. Increase arity for the called expression, nothing to know about -- the second callArityAnal arity int (App e (Type t)) = second (\e -> App e (Type t)) $ callArityAnal arity int e |