diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-05-04 14:04:43 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-05-04 14:04:43 +0000 |
| commit | 16b1946c7490d78bf673e28b7e178a9659a0dc58 (patch) | |
| tree | e28b87b3d43ab90f95c2ac1d09b76303138d8a0e /compiler/hsSyn | |
| parent | 5244158455f546d07632e48c718a771a8f2145a3 (diff) | |
| download | haskell-16b1946c7490d78bf673e28b7e178a9659a0dc58.tar.gz | |
Make DsArrows warning-free
Diffstat (limited to 'compiler/hsSyn')
| -rw-r--r-- | compiler/hsSyn/HsExpr.lhs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/hsSyn/HsExpr.lhs b/compiler/hsSyn/HsExpr.lhs index cef711f21e..542f1667aa 100644 --- a/compiler/hsSyn/HsExpr.lhs +++ b/compiler/hsSyn/HsExpr.lhs @@ -491,6 +491,9 @@ pprCmdArg (HsCmdTop cmd@(L _ (HsArrForm _ Nothing [])) _ _ _) pprCmdArg (HsCmdTop cmd _ _ _) = parens (ppr_lexpr cmd) +instance OutputableBndr id => Outputable (HsCmdTop id) where + ppr = pprCmdArg + -- Put a var in backquotes if it's not an operator already pprInfix :: Outputable name => name -> SDoc pprInfix v | isOperator ppr_v = ppr_v |