From 7c838c419fb071b9dc7a233cf9123f151e437146 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Thu, 8 Jul 2021 11:04:24 -0400
Subject: [PATCH] still more

---
 src/PaymentServer/Ristretto.hs | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

diff --git a/src/PaymentServer/Ristretto.hs b/src/PaymentServer/Ristretto.hs
index b707bb5..f7e1915 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 $ ""
-- 
GitLab