diff options
| author | simonpj@microsoft.com <unknown> | 2009-11-02 17:20:59 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-11-02 17:20:59 +0000 |
| commit | e45d0387b4fdfe83ce9228631938882ef96f7288 (patch) | |
| tree | 817195647608ad1754634a7b2fd5d3a374621adf /compiler | |
| parent | 13e4c20ced14c9d19782a6a5aa8ddbeb3788d3a0 (diff) | |
| download | haskell-e45d0387b4fdfe83ce9228631938882ef96f7288.tar.gz | |
Make the arity warning a bit more informative (DEBUG only)
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/coreSyn/CoreArity.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/coreSyn/CoreArity.lhs b/compiler/coreSyn/CoreArity.lhs index 94297adbaf..cacf4230a7 100644 --- a/compiler/coreSyn/CoreArity.lhs +++ b/compiler/coreSyn/CoreArity.lhs @@ -282,7 +282,7 @@ applyStateHack e (AT orig_arity is_bot) 1 + go res (arity-1) else WARN( arity > 0, ppr arity ) 0 -} - | otherwise = WARN( arity > 0, ppr arity ) 0 + | otherwise = WARN( arity > 0, ppr arity <+> ppr ty) 0 \end{code} Note [State hack and bottoming functions] |