summaryrefslogtreecommitdiff
path: root/Crypto.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Crypto.hs')
-rw-r--r--Crypto.hs8
1 files changed, 0 insertions, 8 deletions
diff --git a/Crypto.hs b/Crypto.hs
index 99b17ce02..fe6c6d5cb 100644
--- a/Crypto.hs
+++ b/Crypto.hs
@@ -19,7 +19,6 @@ module Crypto (
decryptCipher,
encryptKey,
feedFile,
- feedFileMetered,
feedBytes,
readBytes,
encrypt,
@@ -37,8 +36,6 @@ import Common.Annex
import qualified Utility.Gpg as Gpg
import Types.Key
import Types.Crypto
-import Types.Remote
-import Utility.Observed
{- The first half of a Cipher is used for HMAC; the remainder
- is used as the GPG symmetric encryption passphrase.
@@ -125,11 +122,6 @@ type Reader a = Handle -> IO a
feedFile :: FilePath -> Feeder
feedFile f h = L.hPut h =<< L.readFile f
-feedFileMetered :: FilePath -> MeterUpdate -> Feeder
-feedFileMetered f m to = withBinaryFile f ReadMode $ \h -> do
- b <- hGetContentsObserved h $ m . toInteger
- L.hPut to b
-
feedBytes :: L.ByteString -> Feeder
feedBytes = flip L.hPut