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 $ ""