Skip to content
Snippets Groups Projects
Commit 7c838c41 authored by Jean-Paul Calderone's avatar Jean-Paul Calderone
Browse files

still more

parent 0b0746d0
No related branches found
No related tags found
No related merge requests found
...@@ -7,18 +7,11 @@ module PaymentServer.Ristretto ...@@ -7,18 +7,11 @@ module PaymentServer.Ristretto
import Data.Text import Data.Text
( Text ( Text
, pack
) )
import Foreign.Ptr import Foreign.Ptr
( Ptr ( Ptr
) )
import Foreign.C.String
( peekCString
)
import Foreign.Marshal.Alloc
( free
)
data C_SigningKey data C_SigningKey
...@@ -29,8 +22,4 @@ foreign import ccall "signing_key_random" signing_key_random :: IO (Ptr C_Signin ...@@ -29,8 +22,4 @@ foreign import ccall "signing_key_random" signing_key_random :: IO (Ptr C_Signin
randomSigningKey :: IO Text randomSigningKey :: IO Text
randomSigningKey = do randomSigningKey = do
cSigningKey <- signing_key_random cSigningKey <- signing_key_random
cString <- signing_key_encode_base64 cSigningKey return $ ""
signing_key_destroy cSigningKey
result <- peekCString cString
free cString
return $ pack result
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment