From 4ea031ed6bc3981da239997b8bef81d06cf2cd79 Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Mon, 27 Jan 2025 13:37:49 +0100 Subject: [PATCH] refactor(backend): hlint --- src/Crypto/Saltine/Instances.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Crypto/Saltine/Instances.hs b/src/Crypto/Saltine/Instances.hs index e4b812212..8bbc259e0 100644 --- a/src/Crypto/Saltine/Instances.hs +++ b/src/Crypto/Saltine/Instances.hs @@ -1,7 +1,7 @@ -{-# LANGUAGE BangPatterns #-} +-- {-# LANGUAGE BangPatterns #-} {-# OPTIONS_GHC -Wwarn #-} --- SPDX-FileCopyrightText: 2024 Sarah Vaupel +-- SPDX-FileCopyrightText: 2024-2025 Sarah Vaupel -- -- SPDX-License-Identifier: AGPL-3.0-or-later @@ -50,7 +50,7 @@ buildUnsafeByteString' n k = 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)))) ($ []) -- | bin2hex conversion for showing various binary types foreign import ccall unsafe "sodium_bin2hex"