Merge pull request #25 from haskell-cryptography/jdral/fix-whitespace

Add a GHA workflow that checks whitespace in Haskell files

Author: jorisdral

.github/workflows/whitespace.yml

@@ -0,0 +1,38 @@
+name: Fix whitespace
+
+on:
+  push:
+    branches:
+    - "main"
+  pull_request:
+  merge_group:
+
+concurrency:
+  group: ${{ github.workflow }}-${{ github.event.pull_request.number || github.ref }}
+  cancel-in-progress: true
+
+permissions:
+  contents: read
+
+defaults:
+  run:
+    shell: sh
+
+jobs:
+  whitespace:
+    name: "Fix whitespace"
+    runs-on: ubuntu-latest
+    timeout-minutes: 5
+    steps:
+      - name: Checkout
+        uses: actions/checkout@v5
+
+      - name: Download fix-whitespace
+        run: |
+          curl -L -o fix-whitespace https://github.com/agda/fix-whitespace/releases/download/v0.1/fix-whitespace-0.1-linux.binary
+          chmod a+x fix-whitespace
+
+      - name: Check whitespace
+        run: |
+          export PATH="$PWD:$PATH"
+          CHECK=true ./scripts/format-fix-whitespace.sh

botan-bindings/src/Botan/Bindings/HOTP.hs

@@ -18,7 +18,7 @@ as a mobile phone.
 Botan implements the HOTP and TOTP schemes from RFC 4226 and 6238.
 
 Since the range of possible OTPs is quite small, applications must
-rate limit OTP authentication attempts to some small number per 
+rate limit OTP authentication attempts to some small number per
 second. Otherwise an attacker could quickly try all 1000000 6-digit
 OTPs in a brief amount of time.
 

botan-bindings/src/Botan/Bindings/Hash.hs

@@ -105,7 +105,7 @@ foreign import capi safe "botan/ffi.h botan_hash_init"
         -> ConstPtr CChar   -- ^ __hash_name__: name of the hash function, e.g., "SHA-384"
         -> Word32           -- ^ __flags__: should be 0 in current API revision, all other uses are reserved
                             --   and return BOTAN_FFI_ERROR_BAD_FLAG
-        -> IO CInt      
+        -> IO CInt
 
 -- | Get the name of this hash function
 foreign import capi safe "botan/ffi.h botan_hash_name"

botan-bindings/src/Botan/Bindings/KDF.hs

@@ -46,7 +46,7 @@ pattern BOTAN_KDF_HKDF
     ,   BOTAN_KDF_SP800_56A
     ,   BOTAN_KDF_SP800_56C
     :: (Eq a, IsString a) => a
-    
+
 -- NOTE: All KDFs take a HashName or HMAC(HashName) as an argument
 pattern BOTAN_KDF_HKDF                = "HKDF"
 pattern BOTAN_KDF_HKDF_EXTRACT        = "HKDF-Extract"

botan-bindings/src/Botan/Bindings/MAC.hs

@@ -150,4 +150,4 @@ foreign import capi safe "botan/ffi.h botan_mac_get_keyspec"
         -> Ptr CSize    -- ^ __out_maximum_keylength__: if non-NULL, will be set to maximum keylength of MAC
         -> Ptr CSize    -- ^ __out_keylength_modulo__: if non-NULL will be set to byte multiple of valid keys
         -> IO CInt      -- ^ 0 on success, a negative value on failure
-        
+

botan-bindings/src/Botan/Bindings/MPI.hs

@@ -237,7 +237,7 @@ foreign import capi safe "botan/ffi.h botan_mp_swap"
         -> BotanMP -- ^ __y__
         -> IO CInt
 
--- | Return (base^exponent) % modulus 
+-- | Return (base^exponent) % modulus
 foreign import capi safe "botan/ffi.h botan_mp_powmod"
     botan_mp_powmod
         :: BotanMP -- ^ __result__

botan-bindings/src/Botan/Bindings/PubKey/ElGamal.hs

@@ -53,4 +53,4 @@ foreign import capi safe "botan/ffi.h botan_privkey_load_elgamal"
         -> BotanMP             -- ^ __p__: prime order of a Z_p group
         -> BotanMP             -- ^ __g__: group generator
         -> BotanMP             -- ^ __x__: public key
-        -> IO CInt             -- ^ 0 on success, a negative value on failure           
+        -> IO CInt             -- ^ 0 on success, a negative value on failure

botan-bindings/src/Botan/Bindings/RNG.hs

@@ -44,11 +44,11 @@ Initialize a random number generator object
 rng_type has the possible values:
 
     - "system": system RNG
-    
+
     - "user": userspace RNG
-    
+
     - "user-threadsafe": userspace RNG, with internal locking
-    
+
     - "rdrand": directly read RDRAND
 
 Set rng_type to null to let the library choose some default.

botan-bindings/src/Botan/Bindings/TOTP.hs

@@ -18,7 +18,7 @@ as a mobile phone.
 Botan implements the HOTP and TOTP schemes from RFC 4226 and 6238.
 
 Since the range of possible OTPs is quite small, applications must
-rate limit OTP authentication attempts to some small number per 
+rate limit OTP authentication attempts to some small number per
 second. Otherwise an attacker could quickly try all 1000000 6-digit
 OTPs in a brief amount of time.
 

botan-bindings/src/Botan/Bindings/View.hs

@@ -26,7 +26,7 @@ type BotanViewBinFn ctx
     ->  ConstPtr Word8          -- ^ __data__: the binary data
     ->  CSize                   -- ^ __len__: the length of data in bytes
     ->  CInt
-    
+
 type BotanViewBinCallback ctx = FunPtr (BotanViewBinFn ctx)
 
 -- NOTE: "Wrapper stubs can't be used with CApiFFI."