diff options
author | Joey Hess <joey@kitenet.net> | 2012-11-18 21:48:42 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-11-18 21:50:16 -0400 |
commit | e2b7fc1ebdfec2d2eb4b2f16c964472aee3f6409 (patch) | |
tree | 0b29617d89cfe31030df86d334c54c51c14cc15d /Crypto.hs | |
parent | afa2f9c967e7512e889edbe9fae9fb0c4dfa9fc9 (diff) |
refactor
Diffstat (limited to 'Crypto.hs')
-rw-r--r-- | Crypto.hs | 8 |
1 files changed, 0 insertions, 8 deletions
@@ -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 |