haskell - Haskell GPGME の署名は GPG よりもはるかに遅い

Question

私のプログラムでは、ファイルの署名に GPG を使用しています。Haskell でGPGMEを使用していますが、コマンド ラインから GPG を使用するよりも約 16 倍遅いという問題があります。次に例を示します。

Haskell コード:

module Main where

import qualified Data.ByteString as B
import qualified Crypto.Gpgme as Gpg

main :: IO ()
main = do
    fileContents <- B.readFile "randomfile"
    eitherSigned <- sign fileContents
    case eitherSigned of
        Left err -> print err
        Right signed ->
            B.writeFile "signedfile" signed

sign :: B.ByteString -> IO (Either [Gpg.InvalidKey] B.ByteString)
sign bs =
    let
        sign' :: Gpg.Ctx -> IO (Either [Gpg.InvalidKey] Gpg.Plain)    
        sign' ctx = Gpg.sign ctx [] Gpg.Normal bs
    in
        Gpg.withCtx "/home/t/.gnupg" "C" Gpg.OpenPGP sign'

10MBのジャンクファイルを生成します

$ dd if=/dev/zero of=randomfile bs=10000000 count=1

コマンドラインから GPG で署名します。

$ time gpg -s randomfile

そして得る

gpg -s randomfile  0.14s user 0.00s system 99% cpu 0.136 total

私のHaskellプログラムで署名します

$ time stack exec hasksign

そして得る

stack exec hasksign  0.27s user 0.07s system 14% cpu 2.239 total

プロファイリングをオンにしてHaskellコードを再度実行しようとしたところ、次の結果が得られました。

       hasksign +RTS -p -RTS randomfile

    total time  =        2.21 secs   (2208 ticks @ 1000 us, 1 processor)
    total alloc = 115,627,312 bytes  (excludes profiling overheads)

COST CENTRE        MODULE                SRC                                           %time %alloc

newCtx             Crypto.Gpgme.Ctx      src/Crypto/Gpgme/Ctx.hs:(21,1)-(51,21)         77.0    0.0
signIntern         Crypto.Gpgme.Crypto   src/Crypto/Gpgme/Crypto.hs:(310,1)-(354,14)    20.4    8.6
collectResult.go.\ Crypto.Gpgme.Internal src/Crypto/Gpgme/Internal.hs:(29,21)-(34,46)    2.1   81.9
main               Main                  src/Main.hs:(7,1)-(13,43)                       0.1    8.7

時間が費やされているnewCtx関数を調べましたが、何がそれほどコストがかかっているのかわかりません。