Read packet file with larger chunk size.

1 files changed, 4 insertions, 2 deletions

diff --git a/lib/KeyRing/BuildKeyDB.hs b/lib/KeyRing/BuildKeyDB.hs
index ad47ed0..ba5bafe 100644
--- a/lib/KeyRing/BuildKeyDB.hs
+++ b/lib/KeyRing/BuildKeyDB.hs
@@ -91,7 +91,7 @@ import           Foreign.Storable
 import           Data.IORef
 import           Data.Traversable           (sequenceA)
 import qualified Data.Traversable           as Traversable
-import           System.IO                  (stderr)
+import           System.IO                  (stderr,openFile,IOMode(ReadMode))
 
 import           System.Posix.IO            (fdToHandle)
 #if ! MIN_VERSION_base(4,6,0)
@@ -115,6 +115,7 @@ import           KeyRing.Types
 import           Transforms
 import           PacketTranscoder
 import           GnuPGAgent
+import           ByteStringUtil
 
 -- | buildKeyDB
 --
@@ -611,7 +612,8 @@ readInputFileL ctx (Pipe fd _)   = fdToHandle fd >>= L.hGetContents
 readInputFileL ctx (FileDesc fd) = fdToHandle fd >>= L.hGetContents
 readInputFileL ctx inp = do
     let fname = resolveInputFile ctx inp
-    fmap L.concat $ mapM L.readFile fname
+    hs <- mapM (`openFile` ReadMode) fname
+    fmap L.concat $ mapM (hGetContentsN oneMeg) hs
 
 getInputFileTime :: InputFileContext -> InputFile -> IO CTime
 getInputFileTime ctx (Pipe fdr fdw) = do