1 files changed, 0 insertions, 44 deletions

diff --git a/OpenPGP.hs b/OpenPGP.hs
deleted file mode 100644
index 75054b3..0000000
--- a/OpenPGP.hs
+++ /dev/null
@@ -1,44 +0,0 @@
-module OpenPGP 
- ( verify
- , fingerprint
- , pgpSign
- , decryptSecretKey
- ) where
-
-import Data.OpenPGP as OpenPGP
-import Data.OpenPGP.CryptoAPI (verify,fingerprint,sign,decryptSecretKey)
-import Data.Time.Clock.POSIX
-import Control.Applicative ( (<$>) )
-import Crypto.Random (newGenIO,SystemRandom)
-import ControlMaybe
-
-now = floor <$> Data.Time.Clock.POSIX.getPOSIXTime
-
-stampit timestamp sig = sig { hashed_subpackets = hashed' }
- where
-    hashed_stamps   = filter isStamp (hashed_subpackets sig)
-    unhashed_stamps = filter isStamp (unhashed_subpackets sig)
-    hashed' = case hashed_stamps ++ unhashed_stamps of
-                [] -> SignatureCreationTimePacket (fromIntegral timestamp)
-                      : hashed_subpackets sig
-                _  -> hashed_subpackets sig
-    isStamp (SignatureCreationTimePacket {}) = True
-    isStamp _                                = False
-
--- | Make a signature
---
--- In order to set more options on a signature, pass in a signature packet.
-pgpSign :: 
-    OpenPGP.Message          -- ^ SecretKeys, one of which will be used
-    -> OpenPGP.SignatureOver -- ^ Data to sign, and optional signature packet
-    -> OpenPGP.HashAlgorithm -- ^ HashAlgorithm to use in signature
-    -> String                -- ^ KeyID of key to choose
-    -> IO (Maybe OpenPGP.SignatureOver)
-pgpSign seckeys dta hash_algo keyid =
-    handleIO_ (return Nothing) $ do
-    timestamp <- now
-    g <- newGenIO :: IO SystemRandom
-    let sigs = map (stampit timestamp) $ signatures_over dta
-        dta' = dta { signatures_over = sigs }
-    let (r,g') = sign seckeys dta' hash_algo keyid timestamp g
-    return (Just r)