diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-06-30 17:45:00 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-06-30 17:45:00 +0100 |
| commit | 83cacd522a78cd7a19359b3df3e160cb44e2ca3f (patch) | |
| tree | 1e28b42af306a23fbf1ea07f6351938cc7077a09 /compiler/codeGen/ClosureInfo.lhs | |
| parent | bfbf3858110b1e16b2efd89f691e426b03e52343 (diff) | |
| download | haskell-83cacd522a78cd7a19359b3df3e160cb44e2ca3f.tar.gz | |
Fix Trac #5286: getPredTyDescription
Diffstat (limited to 'compiler/codeGen/ClosureInfo.lhs')
| -rw-r--r-- | compiler/codeGen/ClosureInfo.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/ClosureInfo.lhs b/compiler/codeGen/ClosureInfo.lhs index d2c63b3be3..4f59d95276 100644 --- a/compiler/codeGen/ClosureInfo.lhs +++ b/compiler/codeGen/ClosureInfo.lhs @@ -1052,5 +1052,5 @@ getTyDescription ty getPredTyDescription :: PredType -> String getPredTyDescription (ClassP cl _) = getOccString cl getPredTyDescription (IParam ip _) = getOccString (ipNameName ip) -getPredTyDescription (EqPred _ _) = panic "getPredTyDescription EqPred" +getPredTyDescription (EqPred _ _) = "Type equality" \end{code} |