one more camelCase

src/CHK.hs

@@ -599,7 +599,7 @@ chkEncode version stateRef p@(Parameters segmentSize total happy required) dataS
 --
 -- This replaces allmydata.immutable.upload.EncryptAnUploadable
 chkEncrypt :: AESKey128 -> (Integer -> IO B.ByteString) -> IO (Integer -> IO B.ByteString)
-chkEncrypt key read_cleartext  = do
+chkEncrypt key readCleartext = do
   -- ctr only works "correctly" (for our purposes) on whole blocks.  If a
   -- partial block is requested then we need to read the whole block it is
   -- part of and then save some of the output for the next call.
@@ -634,7 +634,7 @@ chkEncrypt key read_cleartext  = do
 
             -- Get the amount of cleartext we have to read to produce at least the
             -- amount of ciphertext we need.
-            cleartext <- read_cleartext (fromIntegral blockSafeLength)
+            cleartext <- readCleartext (fromIntegral blockSafeLength)
             let (ciphertext, newIV) = ctr key iv cleartext
 
             -- Split the ciphertext into the part we need to return from this call