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 | 3d6fb239dd88ec7f105b8066b5c5476bb9c2aeec (patch) | |
tree | a04c6aeffdbf2ad7756ac5ac6abf704090bf763a /Crypto.hs | |
parent | 6aa68125b6d476f0ad9372a0f0fbaa5c118e7096 (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 |