diff --git a/src/PaymentServer/Ristretto.hs b/src/PaymentServer/Ristretto.hs
index b707bb59c8a86125ad6b965ff6969ae10d010607..f7e1915148e082c804a791860c96a133cf6f8e85 100644
--- a/src/PaymentServer/Ristretto.hs
+++ b/src/PaymentServer/Ristretto.hs
@@ -7,18 +7,11 @@ module PaymentServer.Ristretto
 
 import Data.Text
   ( Text
-  , pack
   )
 
 import Foreign.Ptr
   ( Ptr
   )
-import Foreign.C.String
-  ( peekCString
-  )
-import Foreign.Marshal.Alloc
-  ( free
-  )
 
 data C_SigningKey
 
@@ -29,8 +22,4 @@ foreign import ccall "signing_key_random" signing_key_random :: IO (Ptr C_Signin
 randomSigningKey :: IO Text
 randomSigningKey = do
   cSigningKey <- signing_key_random
-  cString <- signing_key_encode_base64 cSigningKey
-  signing_key_destroy cSigningKey
-  result <- peekCString cString
-  free cString
-  return $ pack result
+  return $ ""