From 27e29e8a43bad2921f0da5c48d0e32e575f7369f Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
Date: Sun, 29 Oct 2023 16:44:17 +0000
Subject: [PATCH] style

---
 .../Crypto/SNTRUP761/Bindings/RNG.hs          | 27 ++++++++++---------
 1 file changed, 14 insertions(+), 13 deletions(-)

diff --git a/src/Simplex/Messaging/Crypto/SNTRUP761/Bindings/RNG.hs b/src/Simplex/Messaging/Crypto/SNTRUP761/Bindings/RNG.hs
index 627f735c0..ce4964945 100644
--- a/src/Simplex/Messaging/Crypto/SNTRUP761/Bindings/RNG.hs
+++ b/src/Simplex/Messaging/Crypto/SNTRUP761/Bindings/RNG.hs
@@ -1,26 +1,27 @@
 {-# LANGUAGE NamedFieldPuns #-}
+
 module Simplex.Messaging.Crypto.SNTRUP761.Bindings.RNG
-  ( RNG (..)
-  , dummyRNG
-  , withHaskellRNG
-  , startHaskellRNG
-  , stopHaskellRNG
-  , RNGContext
-  , RNGFunc
-  , mkRNGFunc
+  ( RNG (..),
+    dummyRNG,
+    withHaskellRNG,
+    startHaskellRNG,
+    stopHaskellRNG,
+    RNGContext,
+    RNGFunc,
+    mkRNGFunc,
   ) where
 
 import Foreign
 import Foreign.C
 
-import Crypto.Random (getRandomBytes, drgNew, randomBytesGenerate)
-import Data.ByteArray (Bytes, ByteArrayAccess (copyByteArrayToPtr))
+import Crypto.Random (drgNew, randomBytesGenerate)
+import Data.ByteArray (ByteArrayAccess (copyByteArrayToPtr), Bytes)
+import Data.IORef (atomicModifyIORef', newIORef)
 import UnliftIO (bracket)
-import Data.IORef (newIORef, atomicModifyIORef')
 
 data RNG = RNG
-  { rngContext :: RNGContext
-  , rngFunc :: FunPtr RNGFunc
+  { rngContext :: RNGContext,
+    rngFunc :: FunPtr RNGFunc
   }
 
 dummyRNG :: RNG