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 <sarah.vaupel@uniworx.de>
+-- SPDX-FileCopyrightText: 2024-2025 Sarah Vaupel <sarah.vaupel@uniworx.de>
 --
 -- 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"