Add hex function to curse fingerprints with.

2 files changed, 7 insertions, 2 deletions

diff --git a/Data/OpenPGP/Util.hs b/Data/OpenPGP/Util.hs
index 1f9277d..1781d6d 100644
--- a/Data/OpenPGP/Util.hs
+++ b/Data/OpenPGP/Util.hs
@@ -1,5 +1,7 @@
 module Data.OpenPGP.Util
     ( fingerprint
+    , Fingerprint(..)
+    , hex
     , decryptSecretKey
     , encryptSecretKey
     , verify
diff --git a/Data/OpenPGP/Util/Fingerprint.hs b/Data/OpenPGP/Util/Fingerprint.hs
index b2e3904..c1d8fef 100644
--- a/Data/OpenPGP/Util/Fingerprint.hs
+++ b/Data/OpenPGP/Util/Fingerprint.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-module Data.OpenPGP.Util.Fingerprint (fingerprint,Fingerprint(..)) where
+module Data.OpenPGP.Util.Fingerprint (fingerprint,Fingerprint(..),hex) where
 
 import qualified Data.OpenPGP as OpenPGP
 import qualified Data.ByteString as BS
@@ -23,7 +23,10 @@ oo = (.) . (.)
 newtype Fingerprint = Fingerprint BS.ByteString
 
 instance Show Fingerprint where
- show (Fingerprint bs) = hexify bs
+   show fp = hex fp
+
+hex :: Fingerprint -> String
+hex (Fingerprint bs) = hexify bs
   where
     hexify = map toUpper . hexString . BS.unpack