diff options
| author | Cypher <cypher@server.ky> | 2022-05-03 15:19:21 -0500 |
|---|---|---|
| committer | Cypher <cypher@server.ky> | 2022-05-03 15:19:21 -0500 |
| commit | c019ffde1b35cda5139ca65c80265603c23cd7b9 (patch) | |
| tree | e7b3b252c8e9672a7ebdb5153f28be34935bddbd /src/Sodium.hs | |
| parent | 1a10c09d6150dbc9e8a1718b710252cb7b38b776 (diff) | |
| download | ssb-haskell-c019ffde1b35cda5139ca65c80265603c23cd7b9.tar.xz | |
Diffstat (limited to 'src/Sodium.hs')
| -rw-r--r-- | src/Sodium.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Sodium.hs b/src/Sodium.hs index eb11bb2..fbc461f 100644 --- a/src/Sodium.hs +++ b/src/Sodium.hs @@ -86,7 +86,7 @@ publicKeyToCurve25519 pk = unsafePerformIO $ do -- | Convenience function for accessing constant C strings constByteStrings :: [ByteString] -> ([CStringLen] -> IO b) -> IO b constByteStrings = - foldr (\v kk -> \k -> (unsafeUseAsCStringLen v) (\a -> kk (\as -> k (a:as)))) ($ []) + foldr (\ v kk k -> unsafeUseAsCStringLen v (\a -> kk (\as -> k (a:as)))) ($ []) -- | Slightly safer cousin to 'buildUnsafeByteString' that remains in the -- 'IO' monad. @@ -96,4 +96,3 @@ buildUnsafeByteString' n k = do bs <- unsafePackMallocCStringLen (ph, fromIntegral n) out <- unsafeUseAsCString bs k return (out, bs) - |