From e45b366ca8b9caa4fe0087e5c4fb1720472d9c23 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sun, 18 Oct 2026 10:13:30 +0200 Subject: Refactor code to support multiple crypto backends --- src/Erebos/UUID.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Erebos/UUID.hs') diff --git a/src/Erebos/UUID.hs b/src/Erebos/UUID.hs index 128d450..582bab2 100644 --- a/src/Erebos/UUID.hs +++ b/src/Erebos/UUID.hs @@ -6,14 +6,14 @@ module Erebos.UUID ( nextRandom, ) where -import Crypto.Random.Entropy - import Data.Bits import Data.ByteString qualified as BS import Data.ByteString.Lazy qualified as BSL import Data.Maybe import Data.UUID.Types +import Crypto + nextRandom :: IO UUID nextRandom = do [ b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, ba, bb, bc, bd, be, bf ] -- cgit v1.2.3