diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-04-22 18:32:50 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-04-22 18:32:50 +0100 |
| commit | 05debbb4fd65fb10fd27a25a6b279fbeec600fe4 (patch) | |
| tree | 5762152ef9180b2de42919d052890b0565a78362 | |
| parent | 6b0537a13b101755d9f2b807e32751845ada6c4f (diff) | |
| download | haskell-05debbb4fd65fb10fd27a25a6b279fbeec600fe4.tar.gz | |
Tiny refactoring; no change in behaviour
| -rw-r--r-- | compiler/typecheck/TcType.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/typecheck/TcType.lhs b/compiler/typecheck/TcType.lhs index ea9368014b..74b4e1a066 100644 --- a/compiler/typecheck/TcType.lhs +++ b/compiler/typecheck/TcType.lhs @@ -1128,7 +1128,7 @@ mkMinimalBySCs ptys = [ ploc | ploc <- ptys , ploc `not_in_preds` rec_scs ] where rec_scs = concatMap trans_super_classes ptys - not_in_preds p ps = null (filter (eqPred p) ps) + not_in_preds p ps = not (any (eqPred p) ps) trans_super_classes pred -- Superclasses of pred, excluding pred itself = case classifyPredType pred of |