diff options
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) - |