diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-08-05 16:07:11 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-08-05 16:07:11 +0100 |
| commit | e9a587a120dd6e71dd78291366d2a4eb8c0bedd3 (patch) | |
| tree | bb98768023d5a08ddeb7e760858eb9231d8b588e /compiler/utils/Fingerprint.hsc | |
| parent | be691e1ffe90704d12e5c7bc9d64578b452fb101 (diff) | |
| download | haskell-e9a587a120dd6e71dd78291366d2a4eb8c0bedd3.tar.gz | |
De-orphan the Outputable Fingerprint instance
Diffstat (limited to 'compiler/utils/Fingerprint.hsc')
| -rw-r--r-- | compiler/utils/Fingerprint.hsc | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/compiler/utils/Fingerprint.hsc b/compiler/utils/Fingerprint.hsc index 5f9bef18b1..e006598e45 100644 --- a/compiler/utils/Fingerprint.hsc +++ b/compiler/utils/Fingerprint.hsc @@ -8,7 +8,6 @@ -- -- ---------------------------------------------------------------------------- -{-# OPTIONS_GHC -fno-warn-orphans #-} module Fingerprint ( Fingerprint(..), fingerprint0, readHexFingerprint, @@ -19,16 +18,10 @@ module Fingerprint ( #include "md5.h" ##include "HsVersions.h" -import Outputable - -import Text.Printf import Numeric ( readHex ) import GHC.Fingerprint -instance Outputable Fingerprint where - ppr (Fingerprint w1 w2) = text (printf "%016x%016x" w1 w2) - -- useful for parsing the output of 'md5sum', should we want to do that. readHexFingerprint :: String -> Fingerprint readHexFingerprint s = Fingerprint w1 w2 |